/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Publish / A / Alpha 5.96.sit / Tcl / SystemCode / procs.tcl~

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 70 72 6f 63 73 2e | 74 63 6c 7e 00 00 00 00 |..procs.|tcl~....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 01 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 42 5d 00 | 00 01 7e a9 a2 a2 aa a9 |.....B].|..~.....|
|00000060| a2 a2 aa 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 b3 66 00 00 |........|.....f..|
|00000080| 23 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |#=======|========|
|00000090| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000000c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|000000d0| 70 72 6f 63 20 6e 6f 72 | 6d 61 6c 4c 65 66 74 42 |proc nor|malLeftB|
|000000e0| 72 61 63 6b 65 74 20 7b | 7d 20 7b 0d 09 69 6e 73 |racket {|} {..ins|
|000000f0| 65 72 74 54 65 78 74 20 | 22 5c 7b 22 0d 7d 0d 70 |ertText |"\{".}.p|
|00000100| 72 6f 63 20 6e 6f 72 6d | 61 6c 52 69 67 68 74 42 |roc norm|alRightB|
|00000110| 72 61 63 6b 65 74 20 7b | 7d 20 7b 0d 09 69 6e 73 |racket {|} {..ins|
|00000120| 65 72 74 54 65 78 74 20 | 22 5c 7d 22 0d 7d 0d 62 |ertText |"\}".}.b|
|00000130| 69 6e 64 20 27 5c 5b 27 | 20 3c 7a 73 3e 20 20 6e |ind '\['| <zs>  n|
|00000140| 6f 72 6d 61 6c 4c 65 66 | 74 42 72 61 63 6b 65 74 |ormalLef|tBracket|
|00000150| 0d 62 69 6e 64 20 27 5c | 5d 27 20 3c 7a 73 3e 20 |.bind '\|]' <zs> |
|00000160| 20 6e 6f 72 6d 61 6c 52 | 69 67 68 74 42 72 61 63 | normalR|ightBrac|
|00000170| 6b 65 74 0d 09 09 09 0d | 23 20 53 65 6c 65 63 74 |ket.....|# Select|
|00000180| 20 74 68 65 20 6e 65 78 | 74 20 6f 72 20 63 75 72 | the nex|t or cur|
|00000190| 72 65 6e 74 20 77 6f 72 | 64 2e 20 49 66 20 77 6f |rent wor|d. If wo|
|000001a0| 72 64 20 61 6c 72 65 61 | 64 79 20 73 65 6c 65 63 |rd alrea|dy selec|
|000001b0| 74 65 64 2c 20 77 69 6c | 6c 20 67 6f 20 74 6f 20 |ted, wil|l go to |
|000001c0| 6e 65 78 74 2e 0d 70 72 | 6f 63 20 68 69 6c 69 74 |next..pr|oc hilit|
|000001d0| 65 57 6f 72 64 20 7b 7d | 20 7b 0d 09 69 66 20 7b |eWord {}| {..if {|
|000001e0| 5b 67 65 74 50 6f 73 5d | 21 3d 5b 73 65 6c 45 6e |[getPos]|!=[selEn|
|000001f0| 64 5d 7d 09 66 6f 72 77 | 61 72 64 43 68 61 72 0d |d]}.forw|ardChar.|
|00000200| 09 66 6f 72 77 61 72 64 | 57 6f 72 64 0d 09 73 65 |.forward|Word..se|
|00000210| 74 20 73 74 61 72 74 20 | 5b 67 65 74 50 6f 73 5d |t start |[getPos]|
|00000220| 0d 09 62 61 63 6b 77 61 | 72 64 57 6f 72 64 0d 09 |..backwa|rdWord..|
|00000230| 73 65 6c 65 63 74 20 24 | 73 74 61 72 74 20 5b 67 |select $|start [g|
|00000240| 65 74 50 6f 73 5d 0d 7d | 0d 0d 62 69 6e 64 20 27 |etPos].}|..bind '|
|00000250| 68 27 20 3c 7a 3e 20 68 | 69 6c 69 74 65 57 6f 72 |h' <z> h|iliteWor|
|00000260| 64 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |d..#====|========|
|00000270| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000280| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000290| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002b0| 3d 3d 3d 3d 0d 23 20 4d | 6f 64 65 20 76 61 72 69 |====.# M|ode vari|
|000002c0| 61 62 6c 65 73 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ables.#=|========|
|000002d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000002f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000300| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000310| 3d 3d 3d 3d 3d 3d 3d 0d | 23 20 46 6f 72 20 6d 61 |=======.|# For ma|
|00000320| 72 6b 20 73 74 61 63 6b | 2e 0d 73 65 74 20 6d 61 |rk stack|..set ma|
|00000330| 72 6b 4e 61 6d 65 20 30 | 0d 73 65 74 20 6d 61 72 |rkName 0|.set mar|
|00000340| 6b 53 74 61 63 6b 20 22 | 22 0d 0d 23 20 6d 61 70 |kStack "|"..# map|
|00000350| 70 69 6e 67 20 6f 66 20 | 77 69 6e 64 6f 77 73 20 |ping of |windows |
|00000360| 74 6f 20 63 75 72 72 65 | 6e 74 20 6d 6f 64 65 73 |to curre|nt modes|
|00000370| 2e 0d 73 65 74 20 77 69 | 6e 4d 6f 64 65 73 28 22 |..set wi|nModes("|
|00000380| 22 29 20 22 22 0d 0d 23 | 20 6d 61 6b 69 6e 67 20 |") ""..#| making |
|00000390| 76 61 72 73 20 6c 6f 63 | 61 6c 20 74 6f 20 77 69 |vars loc|al to wi|
|000003a0| 6e 64 6f 77 73 0d 73 65 | 74 20 6c 6f 63 61 6c 56 |ndows.se|t localV|
|000003b0| 61 72 73 20 7b 20 6f 70 | 74 69 6f 6e 49 73 4d 65 |ars { op|tionIsMe|
|000003c0| 74 61 20 77 6f 72 64 42 | 72 65 61 6b 20 77 6f 72 |ta wordB|reak wor|
|000003d0| 64 42 72 65 61 6b 50 72 | 65 66 61 63 65 20 77 6f |dBreakPr|eface wo|
|000003e0| 72 64 57 72 61 70 20 0d | 09 66 69 6c 6c 43 6f 6c |rdWrap .|.fillCol|
|000003f0| 75 6d 6e 20 6c 65 66 74 | 46 69 6c 6c 43 6f 6c 75 |umn left|FillColu|
|00000400| 6d 6e 20 74 61 62 53 69 | 7a 65 20 65 6c 65 63 4c |mn tabSi|ze elecL|
|00000410| 42 72 61 63 65 20 65 6c | 65 63 52 42 72 61 63 65 |Brace el|ecRBrace|
|00000420| 20 65 6c 65 63 74 72 69 | 63 53 65 6d 69 20 0d 09 | electri|cSemi ..|
|00000430| 70 72 65 66 69 78 53 74 | 72 69 6e 67 20 73 75 66 |prefixSt|ring suf|
|00000440| 66 69 78 53 74 72 69 6e | 67 20 66 75 6e 63 45 78 |fixStrin|g funcEx|
|00000450| 70 72 20 66 75 6e 63 50 | 61 72 20 73 6f 72 74 65 |pr funcP|ar sorte|
|00000460| 64 49 73 44 65 66 61 75 | 6c 74 20 0d 09 6d 61 72 |dIsDefau|lt ..mar|
|00000470| 6b 53 6f 72 74 69 6e 67 | 20 7d 0d 0d 23 20 27 69 |kSorting| }..# 'i|
|00000480| 6e 63 6f 6d 69 6e 67 56 | 61 72 73 27 20 75 73 65 |ncomingV|ars' use|
|00000490| 64 20 74 6f 20 68 6f 6c | 64 20 6f 6c 64 20 76 61 |d to hol|d old va|
|000004a0| 72 20 76 61 6c 75 65 73 | 20 74 68 61 74 20 68 61 |r values| that ha|
|000004b0| 76 65 20 62 65 65 6e 20 | 6f 76 65 72 77 72 69 74 |ve been |overwrit|
|000004c0| 74 65 6e 20 69 6e 20 63 | 75 72 72 65 6e 74 20 77 |ten in c|urrent w|
|000004d0| 69 6e 64 6f 77 0d 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |indow..#|========|
|000004e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000004f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000500| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000510| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000520| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 23 20 48 61 6e 64 6c |========|.# Handl|
|00000530| 65 20 27 66 6c 61 67 27 | 20 61 6e 64 20 27 76 61 |e 'flag'| and 'va|
|00000540| 72 27 20 6d 65 6e 75 20 | 73 65 6c 65 63 74 69 6f |r' menu |selectio|
|00000550| 6e 73 2e 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ns..#===|========|
|00000560| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000570| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000580| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000590| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000005a0| 3d 3d 3d 3d 3d 0d 70 72 | 6f 63 20 65 64 69 74 46 |=====.pr|oc editF|
|000005b0| 6c 61 67 20 7b 6d 65 6e | 75 20 69 74 65 6d 7d 20 |lag {men|u item} |
|000005c0| 7b 0d 09 67 6c 6f 62 61 | 6c 20 24 69 74 65 6d 20 |{..globa|l $item |
|000005d0| 6c 6f 63 61 6c 56 61 72 | 73 20 69 6e 63 6f 6d 69 |localVar|s incomi|
|000005e0| 6e 67 56 61 72 73 0d 0d | 09 73 65 74 20 76 61 6c |ngVars..|.set val|
|000005f0| 20 5b 65 78 70 72 20 28 | 5b 73 65 74 20 24 69 74 | [expr (|[set $it|
|00000600| 65 6d 5d 2d 31 29 2a 2d | 31 5d 0d 09 73 65 74 20 |em]-1)*-|1]..set |
|00000610| 24 69 74 65 6d 20 24 76 | 61 6c 0d 7d 0d 0d 70 72 |$item $v|al.}..pr|
|00000620| 6f 63 20 65 64 69 74 56 | 61 72 20 7b 6d 65 6e 75 |oc editV|ar {menu|
|00000630| 20 69 74 65 6d 7d 20 7b | 0d 09 67 6c 6f 62 61 6c | item} {|..global|
|00000640| 20 24 69 74 65 6d 20 6c | 6f 63 61 6c 56 61 72 73 | $item l|ocalVars|
|00000650| 20 69 6e 63 6f 6d 69 6e | 67 56 61 72 73 0d 0d 09 | incomin|gVars...|
|00000660| 61 70 70 65 6e 64 20 70 | 72 6d 70 74 20 22 4e 65 |append p|rmpt "Ne|
|00000670| 77 20 56 61 6c 75 65 20 | 6f 66 20 22 20 24 69 74 |w Value |of " $it|
|00000680| 65 6d 20 22 3a 20 22 0d | 09 69 66 20 21 5b 63 61 |em ": ".|.if ![ca|
|00000690| 74 63 68 20 7b 70 72 6f | 6d 70 74 20 24 70 72 6d |tch {pro|mpt $prm|
|000006a0| 70 74 20 5b 73 65 74 20 | 24 69 74 65 6d 5d 7d 20 |pt [set |$item]} |
|000006b0| 72 65 73 5d 20 7b 0d 09 | 09 73 65 74 20 24 69 74 |res] {..|.set $it|
|000006c0| 65 6d 20 24 72 65 73 0d | 09 7d 0d 7d 0d 0d 0d 23 |em $res.|.}.}...#|
|000006d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000006f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000700| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000710| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 0d 23 20 |========|=====.# |
|00000720| 48 6f 6f 6b 20 70 72 6f | 63 73 20 72 65 63 6f 67 |Hook pro|cs recog|
|00000730| 6e 69 7a 65 64 3a 20 22 | 6f 70 65 6e 48 6f 6f 6b |nized: "|openHook|
|00000740| 22 2c 20 22 63 6c 6f 73 | 65 48 6f 6f 6b 22 2c 20 |", "clos|eHook", |
|00000750| 22 61 63 74 69 76 61 74 | 65 48 6f 6f 6b 22 2c 20 |"activat|eHook", |
|00000760| 22 64 65 61 63 74 69 76 | 61 74 65 48 6f 6f 6b 22 |"deactiv|ateHook"|
|00000770| 2c 20 0d 23 09 09 09 09 | 20 09 09 20 22 73 75 73 |, .#....| .. "sus|
|00000780| 70 65 6e 64 48 6f 6f 6b | 22 2c 20 22 73 61 76 65 |pendHook|", "save|
|00000790| 61 73 48 6f 6f 6b 22 2c | 20 22 73 61 76 65 48 6f |asHook",| "saveHo|
|000007a0| 6f 6b 22 2c 20 61 6e 64 | 20 22 72 65 73 75 6d 65 |ok", and| "resume|
|000007b0| 48 6f 6f 6b 22 2e 0d 23 | 3d 3d 3d 3d 3d 3d 3d 3d |Hook"..#|========|
|000007c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000007f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000800| 3d 3d 3d 3d 3d 0d 0d 23 | 20 45 76 65 6e 74 20 68 |=====..#| Event h|
|00000810| 6f 6f 6b 73 20 2d 20 73 | 65 74 20 73 70 65 63 69 |ooks - s|et speci|
|00000820| 66 69 63 20 6d 6f 64 65 | 73 20 77 68 65 6e 20 66 |fic mode|s when f|
|00000830| 69 6c 65 73 20 6f 70 65 | 6e 65 64 2e 0d 70 72 6f |iles ope|ned..pro|
|00000840| 63 20 6f 70 65 6e 48 6f | 6f 6b 20 6e 61 6d 65 20 |c openHo|ok name |
|00000850| 7b 0d 09 67 6c 6f 62 61 | 6c 20 77 69 6e 4d 6f 64 |{..globa|l winMod|
|00000860| 65 73 0d 09 24 77 69 6e | 4d 6f 64 65 73 28 24 6e |es..$win|Modes($n|
|00000870| 61 6d 65 29 0d 09 69 66 | 20 7b 24 6e 61 6d 65 20 |ame)..if| {$name |
|00000880| 3d 3d 20 7b 2a 54 6f 6f | 6c 73 65 72 76 65 72 20 |== {*Too|lserver |
|00000890| 73 68 65 6c 6c 2a 7d 7d | 20 73 74 61 72 74 4d 50 |shell*}}| startMP|
|000008a0| 57 0d 09 61 64 64 57 69 | 6e 4e 61 6d 65 20 24 6e |W..addWi|nName $n|
|000008b0| 61 6d 65 0d 7d 0d 0d 23 | 20 66 75 6c 6c 20 70 61 |ame.}..#| full pa|
|000008c0| 74 68 6e 61 6d 65 0d 70 | 72 6f 63 20 73 61 76 65 |thname.p|roc save|
|000008d0| 48 6f 6f 6b 20 6e 61 6d | 65 20 7b 0d 09 67 6c 6f |Hook nam|e {..glo|
|000008e0| 62 61 6c 20 62 61 63 6b | 75 70 20 62 61 63 6b 45 |bal back|up backE|
|000008f0| 78 74 65 6e 73 69 6f 6e | 20 62 61 63 6b 44 69 72 |xtension| backDir|
|00000900| 0d 09 69 66 20 7b 21 5b | 73 74 72 69 6e 67 20 6c |..if {![|string l|
|00000910| 65 6e 67 74 68 20 5b 73 | 65 74 20 64 69 72 20 24 |ength [s|et dir $|
|00000920| 62 61 63 6b 44 69 72 5d | 5d 7d 20 7b 0d 09 09 73 |backDir]|]} {...s|
|00000930| 65 74 20 64 69 72 20 5b | 66 69 6c 65 20 64 69 72 |et dir [|file dir|
|00000940| 6e 61 6d 65 20 24 6e 61 | 6d 65 5d 0d 09 7d 0d 09 |name $na|me]..}..|
|00000950| 69 66 20 28 24 62 61 63 | 6b 75 70 29 20 7b 0d 09 |if ($bac|kup) {..|
|00000960| 09 63 61 74 63 68 20 7b | 72 6d 20 24 64 69 72 3a |.catch {|rm $dir:|
|00000970| 5b 66 69 6c 65 20 74 61 | 69 6c 20 24 6e 61 6d 65 |[file ta|il $name|
|00000980| 5d 7e 7d 0d 09 09 63 70 | 20 24 6e 61 6d 65 20 24 |]~}...cp| $name $|
|00000990| 64 69 72 3a 5b 66 69 6c | 65 20 74 61 69 6c 20 24 |dir:[fil|e tail $|
|000009a0| 6e 61 6d 65 5d 24 62 61 | 63 6b 45 78 74 65 6e 73 |name]$ba|ckExtens|
|000009b0| 69 6f 6e 0d 09 7d 0d 7d | 0d 0d 23 20 43 6c 65 61 |ion..}.}|..# Clea|
|000009c0| 6e 20 75 70 20 74 68 65 | 20 6d 61 72 6b 20 73 74 |n up the| mark st|
|000009d0| 61 63 6b 2e 0d 70 72 6f | 63 20 63 6c 6f 73 65 48 |ack..pro|c closeH|
|000009e0| 6f 6f 6b 20 6e 61 6d 65 | 20 7b 0d 09 67 6c 6f 62 |ook name| {..glob|
|000009f0| 61 6c 20 6d 61 72 6b 53 | 74 61 63 6b 0d 09 67 6c |al markS|tack..gl|
|00000a00| 6f 62 61 6c 20 77 69 6e | 4d 6f 64 65 73 0d 09 75 |obal win|Modes..u|
|00000a10| 6e 73 65 74 20 77 69 6e | 4d 6f 64 65 73 28 24 6e |nset win|Modes($n|
|00000a20| 61 6d 65 29 0d 09 69 66 | 20 5b 6c 6c 65 6e 67 74 |ame)..if| [llengt|
|00000a30| 68 20 24 6d 61 72 6b 53 | 74 61 63 6b 5d 20 7b 0d |h $markS|tack] {.|
|00000a40| 09 09 73 65 74 20 6d 61 | 72 6b 53 74 61 63 6b 20 |..set ma|rkStack |
|00000a50| 5b 72 65 6d 6f 76 65 50 | 61 74 20 24 6d 61 72 6b |[removeP|at $mark|
|00000a60| 53 74 61 63 6b 20 24 6e | 61 6d 65 2a 5d 0d 09 7d |Stack $n|ame*]..}|
|00000a70| 0d 09 72 65 6d 6f 76 65 | 57 69 6e 4e 61 6d 65 20 |..remove|WinName |
|00000a80| 24 6e 61 6d 65 0d 7d 0d | 0d 70 72 6f 63 20 73 61 |$name.}.|.proc sa|
|00000a90| 76 65 61 73 48 6f 6f 6b | 20 7b 6f 6c 64 4e 61 6d |veasHook| {oldNam|
|00000aa0| 65 20 6e 65 77 4e 61 6d | 65 7d 20 7b 0d 09 67 6c |e newNam|e} {..gl|
|00000ab0| 6f 62 61 6c 20 77 69 6e | 4d 6f 64 65 73 0d 09 72 |obal win|Modes..r|
|00000ac0| 65 6d 6f 76 65 57 69 6e | 4e 61 6d 65 20 24 6f 6c |emoveWin|Name $ol|
|00000ad0| 64 4e 61 6d 65 0d 09 61 | 64 64 57 69 6e 4e 61 6d |dName..a|ddWinNam|
|00000ae0| 65 20 24 6e 65 77 4e 61 | 6d 65 0d 09 73 65 74 57 |e $newNa|me..setW|
|00000af0| 69 6e 4d 6f 64 65 20 24 | 6e 65 77 4e 61 6d 65 0d |inMode $|newName.|
|00000b00| 09 24 77 69 6e 4d 6f 64 | 65 73 28 24 6e 65 77 4e |.$winMod|es($newN|
|00000b10| 61 6d 65 29 0d 7d 0d 0d | 0d 70 72 6f 63 20 61 63 |ame).}..|.proc ac|
|00000b20| 74 69 76 61 74 65 48 6f | 6f 6b 20 6e 61 6d 65 20 |tivateHo|ok name |
|00000b30| 7b 0d 09 67 6c 6f 62 61 | 6c 20 77 69 6e 4d 6f 64 |{..globa|l winMod|
|00000b40| 65 73 0d 09 69 66 20 7b | 5b 63 61 74 63 68 20 7b |es..if {|[catch {|
|00000b50| 24 77 69 6e 4d 6f 64 65 | 73 28 24 6e 61 6d 65 29 |$winMode|s($name)|
|00000b60| 7d 5d 7d 20 7b 0d 09 09 | 73 65 74 57 69 6e 4d 6f |}]} {...|setWinMo|
|00000b70| 64 65 20 24 6e 61 6d 65 | 0d 09 09 24 77 69 6e 4d |de $name|...$winM|
|00000b80| 6f 64 65 73 28 24 6e 61 | 6d 65 29 0d 09 7d 0d 7d |odes($na|me)..}.}|
|00000b90| 0d 0d 70 72 6f 63 20 64 | 69 72 74 79 48 6f 6f 6b |..proc d|irtyHook|
|00000ba0| 20 7b 6e 61 6d 65 20 64 | 69 72 74 79 7d 20 7b 0d | {name d|irty} {.|
|00000bb0| 09 6d 61 72 6b 4d 65 6e | 75 49 74 65 6d 20 57 69 |.markMen|uItem Wi|
|00000bc0| 6e 73 20 5b 66 69 6c 65 | 20 74 61 69 6c 20 24 6e |ns [file| tail $n|
|00000bd0| 61 6d 65 5d 20 24 64 69 | 72 74 79 20 22 d7 22 0d |ame] $di|rty ".".|
|00000be0| 7d 0d 0d 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |}...#===|========|
|00000bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c30| 3d 3d 3d 3d 3d 0d 0d 0d | 70 72 6f 63 20 73 65 74 |=====...|proc set|
|00000c40| 57 69 6e 4d 6f 64 65 20 | 6e 61 6d 65 20 7b 0d 09 |WinMode |name {..|
|00000c50| 67 6c 6f 62 61 6c 20 77 | 69 6e 4d 6f 64 65 73 0d |global w|inModes.|
|00000c60| 09 73 65 74 20 6e 6d 20 | 5b 66 69 6c 65 20 74 61 |.set nm |[file ta|
|00000c70| 69 6c 20 24 6e 61 6d 65 | 5d 0d 09 69 66 20 7b 5b |il $name|]..if {[|
|00000c80| 73 65 74 20 66 69 72 73 | 74 20 5b 73 74 72 69 6e |set firs|t [strin|
|00000c90| 67 20 6c 61 73 74 20 22 | 20 3c 22 20 24 6e 61 6d |g last "| <" $nam|
|00000ca0| 65 5d 5d 20 3e 3d 20 30 | 7d 20 7b 0d 09 09 73 65 |e]] >= 0|} {...se|
|00000cb0| 74 20 72 6e 61 6d 65 20 | 5b 73 74 72 69 6e 67 20 |t rname |[string |
|00000cc0| 72 61 6e 67 65 20 24 6e | 61 6d 65 20 30 20 5b 65 |range $n|ame 0 [e|
|00000cd0| 78 70 72 20 24 66 69 72 | 73 74 20 2d 20 31 5d 5d |xpr $fir|st - 1]]|
|00000ce0| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 73 65 74 |..} else| {...set|
|00000cf0| 20 72 6e 61 6d 65 20 24 | 6e 61 6d 65 0d 09 7d 0d | rname $|name..}.|
|00000d00| 09 63 61 73 65 20 24 72 | 6e 61 6d 65 20 69 6e 20 |.case $r|name in |
|00000d10| 7b 0d 09 09 22 2a 2e 63 | 22 20 09 09 7b 20 09 73 |{..."*.c|" ..{ .s|
|00000d20| 65 74 20 77 69 6e 4d 6f | 64 65 73 28 24 6e 61 6d |et winMo|des($nam|
|00000d30| 65 29 20 73 65 74 43 4d | 6f 64 65 20 7d 0d 09 09 |e) setCM|ode }...|
|00000d40| 22 2a 2e 74 65 78 22 09 | 09 7b 20 09 73 65 74 20 |"*.tex".|.{ .set |
|00000d50| 77 69 6e 4d 6f 64 65 73 | 28 24 6e 61 6d 65 29 20 |winModes|($name) |
|00000d60| 73 65 74 54 65 78 4d 6f | 64 65 3b 20 77 69 6e 46 |setTexMo|de; winF|
|00000d70| 75 6e 63 54 69 74 6c 65 | 20 24 6e 6d 20 22 53 65 |uncTitle| $nm "Se|
|00000d80| 63 74 22 20 7d 0d 09 09 | 22 2a 2e 63 63 22 09 09 |ct" }...|"*.cc"..|
|00000d90| 7b 20 09 73 65 74 20 77 | 69 6e 4d 6f 64 65 73 28 |{ .set w|inModes(|
|00000da0| 24 6e 61 6d 65 29 20 73 | 65 74 43 2b 2b 4d 6f 64 |$name) s|etC++Mod|
|00000db0| 65 3b 20 77 69 6e 46 75 | 6e 63 54 69 74 6c 65 20 |e; winFu|ncTitle |
|00000dc0| 24 6e 6d 20 22 4d 65 74 | 68 22 20 7d 0d 09 09 22 |$nm "Met|h" }..."|
|00000dd0| 2a 2e 63 70 22 09 09 7b | 20 09 73 65 74 20 77 69 |*.cp"..{| .set wi|
|00000de0| 6e 4d 6f 64 65 73 28 24 | 6e 61 6d 65 29 20 73 65 |nModes($|name) se|
|00000df0| 74 43 2b 2b 4d 6f 64 65 | 3b 20 77 69 6e 46 75 6e |tC++Mode|; winFun|
|00000e00| 63 54 69 74 6c 65 20 24 | 6e 6d 20 22 4d 65 74 68 |cTitle $|nm "Meth|
|00000e10| 22 20 7d 0d 09 09 22 2a | 2e 43 22 09 09 7b 20 09 |" }..."*|.C"..{ .|
|00000e20| 73 65 74 20 77 69 6e 4d | 6f 64 65 73 28 24 6e 61 |set winM|odes($na|
|00000e30| 6d 65 29 20 73 65 74 43 | 2b 2b 4d 6f 64 65 3b 20 |me) setC|++Mode; |
|00000e40| 77 69 6e 46 75 6e 63 54 | 69 74 6c 65 20 24 6e 6d |winFuncT|itle $nm|
|00000e50| 20 22 4d 65 74 68 22 20 | 7d 0d 09 09 22 2a 2e 68 | "Meth" |}..."*.h|
|00000e60| 22 20 09 09 7b 20 09 73 | 65 74 20 77 69 6e 4d 6f |" ..{ .s|et winMo|
|00000e70| 64 65 73 28 24 6e 61 6d | 65 29 20 73 65 74 43 4d |des($nam|e) setCM|
|00000e80| 6f 64 65 20 7d 0d 09 09 | 22 2a 2e 66 22 20 20 09 |ode }...|"*.f"  .|
|00000e90| 09 7b 20 09 73 65 74 20 | 77 69 6e 4d 6f 64 65 73 |.{ .set |winModes|
|00000ea0| 28 24 6e 61 6d 65 29 20 | 73 65 74 46 6f 72 74 72 |($name) |setFortr|
|00000eb0| 61 6e 4d 6f 64 65 20 7d | 0d 09 09 22 2a 2e 74 63 |anMode }|..."*.tc|
|00000ec0| 6c 22 20 09 7b 20 09 73 | 65 74 20 77 69 6e 4d 6f |l" .{ .s|et winMo|
|00000ed0| 64 65 73 28 24 6e 61 6d | 65 29 20 73 65 74 54 63 |des($nam|e) setTc|
|00000ee0| 6c 4d 6f 64 65 3b 20 77 | 69 6e 46 75 6e 63 54 69 |lMode; w|inFuncTi|
|00000ef0| 74 6c 65 20 24 6e 6d 20 | 22 50 72 6f 63 22 20 7d |tle $nm |"Proc" }|
|00000f00| 0d 09 09 7b 2a 54 6f 6f | 6c 73 65 72 76 65 72 5c |...{*Too|lserver\|
|00000f10| 20 73 68 2a 7d 09 7b 20 | 09 73 65 74 20 77 69 6e | sh*}.{ |.set win|
|00000f20| 4d 6f 64 65 73 28 24 6e | 61 6d 65 29 20 73 65 74 |Modes($n|ame) set|
|00000f30| 4d 50 57 4d 6f 64 65 3b | 20 77 69 6e 46 75 6e 63 |MPWMode;| winFunc|
|00000f40| 54 69 74 6c 65 20 24 6e | 6d 20 22 50 72 6f 63 22 |Title $n|m "Proc"|
|00000f50| 20 7d 0d 09 09 7b 2a 74 | 63 6c 5c 20 73 68 2a 7d | }...{*t|cl\ sh*}|
|00000f60| 09 7b 20 09 73 65 74 20 | 77 69 6e 4d 6f 64 65 73 |.{ .set |winModes|
|00000f70| 28 24 6e 61 6d 65 29 20 | 73 65 74 53 68 65 6c 6c |($name) |setShell|
|00000f80| 4d 6f 64 65 3b 20 77 69 | 6e 46 75 6e 63 54 69 74 |Mode; wi|nFuncTit|
|00000f90| 6c 65 20 24 6e 6d 20 22 | 50 72 6f 63 22 20 7d 0d |le $nm "|Proc" }.|
|00000fa0| 09 09 22 2a 2e 73 74 79 | 22 09 09 7b 20 09 73 65 |.."*.sty|"..{ .se|
|00000fb0| 74 20 77 69 6e 4d 6f 64 | 65 73 28 24 6e 61 6d 65 |t winMod|es($name|
|00000fc0| 29 20 73 65 74 54 65 78 | 4d 6f 64 65 3b 20 77 69 |) setTex|Mode; wi|
|00000fd0| 6e 46 75 6e 63 54 69 74 | 6c 65 20 24 6e 6d 20 22 |nFuncTit|le $nm "|
|00000fe0| 53 65 63 74 22 20 7d 0d | 09 09 22 42 72 6f 77 73 |Sect" }.|.."Brows|
|00000ff0| 65 72 22 09 7b 20 09 73 | 65 74 20 77 69 6e 4d 6f |er".{ .s|et winMo|
|00001000| 64 65 73 28 24 6e 61 6d | 65 29 20 73 65 74 42 72 |des($nam|e) setBr|
|00001010| 6f 77 73 65 4d 6f 64 65 | 20 7d 0d 09 09 64 65 66 |owseMode| }...def|
|00001020| 61 75 6c 74 09 09 7b 20 | 09 73 65 74 20 77 69 6e |ault..{ |.set win|
|00001030| 4d 6f 64 65 73 28 24 6e | 61 6d 65 29 20 73 65 74 |Modes($n|ame) set|
|00001040| 54 65 78 74 4d 6f 64 65 | 20 7d 0d 09 7d 0d 7d 0d |TextMode| }..}.}.|
|00001050| 0d 0d 23 20 27 6d 6f 64 | 65 73 27 20 69 73 20 69 |..# 'mod|es' is i|
|00001060| 6e 73 70 65 63 74 65 64 | 20 62 79 20 61 6c 70 68 |nspected| by alph|
|00001070| 61 20 66 6f 72 20 74 68 | 65 20 70 6f 70 75 70 20 |a for th|e popup |
|00001080| 6d 6f 64 65 20 6d 65 6e | 75 2e 20 27 6e 65 77 4d |mode men|u. 'newM|
|00001090| 6f 64 65 27 20 69 73 20 | 0d 23 20 63 61 6c 6c 65 |ode' is |.# calle|
|000010a0| 64 20 62 79 20 41 6c 70 | 68 61 20 69 6e 20 63 61 |d by Alp|ha in ca|
|000010b0| 73 65 20 6f 66 20 61 20 | 73 75 63 63 65 73 73 66 |se of a |successf|
|000010c0| 75 6c 20 63 68 6f 69 63 | 65 2e 0d 73 65 74 20 6d |ul choic|e..set m|
|000010d0| 6f 64 65 73 20 7b 20 43 | 20 43 2b 2b 20 43 73 68 |odes { C| C++ Csh|
|000010e0| 20 46 6f 72 74 20 4d 50 | 57 20 54 63 6c 20 54 65 | Fort MP|W Tcl Te|
|000010f0| 58 20 54 65 78 74 20 7d | 0d 0d 73 65 74 20 6d 6f |X Text }|..set mo|
|00001100| 64 65 50 72 6f 63 73 28 | 43 29 20 09 09 73 65 74 |deProcs(|C) ..set|
|00001110| 43 4d 6f 64 65 0d 73 65 | 74 20 6d 6f 64 65 50 72 |CMode.se|t modePr|
|00001120| 6f 63 73 28 43 2b 2b 29 | 09 20 09 73 65 74 43 2b |ocs(C++)|. .setC+|
|00001130| 2b 4d 6f 64 65 0d 73 65 | 74 20 6d 6f 64 65 50 72 |+Mode.se|t modePr|
|00001140| 6f 63 73 28 43 73 68 29 | 09 20 09 73 65 74 53 68 |ocs(Csh)|. .setSh|
|00001150| 65 6c 6c 4d 6f 64 65 0d | 73 65 74 20 6d 6f 64 65 |ellMode.|set mode|
|00001160| 50 72 6f 63 73 28 46 6f | 72 74 29 20 09 73 65 74 |Procs(Fo|rt) .set|
|00001170| 46 6f 72 74 72 61 6e 4d | 6f 64 65 0d 73 65 74 20 |FortranM|ode.set |
|00001180| 6d 6f 64 65 50 72 6f 63 | 73 28 4d 50 57 29 09 20 |modeProc|s(MPW). |
|00001190| 09 73 65 74 4d 50 57 4d | 6f 64 65 0d 73 65 74 20 |.setMPWM|ode.set |
|000011a0| 6d 6f 64 65 50 72 6f 63 | 73 28 54 63 6c 29 09 20 |modeProc|s(Tcl). |
|000011b0| 09 73 65 74 54 63 6c 4d | 6f 64 65 0d 73 65 74 20 |.setTclM|ode.set |
|000011c0| 6d 6f 64 65 50 72 6f 63 | 73 28 54 65 58 29 09 20 |modeProc|s(TeX). |
|000011d0| 09 73 65 74 54 65 78 4d | 6f 64 65 0d 73 65 74 20 |.setTexM|ode.set |
|000011e0| 6d 6f 64 65 50 72 6f 63 | 73 28 54 65 78 74 29 20 |modeProc|s(Text) |
|000011f0| 09 73 65 74 54 65 78 74 | 4d 6f 64 65 0d 0d 70 72 |.setText|Mode..pr|
|00001200| 6f 63 20 6e 65 77 4d 6f | 64 65 20 6d 6f 64 65 20 |oc newMo|de mode |
|00001210| 7b 0d 09 67 6c 6f 62 61 | 6c 20 77 69 6e 4d 6f 64 |{..globa|l winMod|
|00001220| 65 73 0d 09 67 6c 6f 62 | 61 6c 20 6d 6f 64 65 50 |es..glob|al modeP|
|00001230| 72 6f 63 73 0d 09 0d 09 | 73 65 74 20 6e 61 6d 65 |rocs....|set name|
|00001240| 20 5b 6c 69 6e 64 65 78 | 20 5b 77 69 6e 4e 61 6d | [lindex| [winNam|
|00001250| 65 73 20 2d 66 5d 20 30 | 5d 0d 09 24 6d 6f 64 65 |es -f] 0|]..$mode|
|00001260| 50 72 6f 63 73 28 24 6d | 6f 64 65 29 0d 09 73 65 |Procs($m|ode)..se|
|00001270| 74 20 77 69 6e 4d 6f 64 | 65 73 28 24 6e 61 6d 65 |t winMod|es($name|
|00001280| 29 20 24 6d 6f 64 65 50 | 72 6f 63 73 28 24 6d 6f |) $modeP|rocs($mo|
|00001290| 64 65 29 0d 7d 0d 0d 0d | 70 72 6f 63 20 64 65 61 |de).}...|proc dea|
|000012a0| 63 74 69 76 61 74 65 48 | 6f 6f 6b 20 6e 61 6d 65 |ctivateH|ook name|
|000012b0| 20 7b 0d 7d 0d 0d 70 72 | 6f 63 20 73 75 73 70 65 | {.}..pr|oc suspe|
|000012c0| 6e 64 48 6f 6f 6b 20 6e | 61 6d 65 20 7b 0d 09 67 |ndHook n|ame {..g|
|000012d0| 6c 6f 62 61 6c 20 69 63 | 6f 6e 69 66 79 4f 6e 53 |lobal ic|onifyOnS|
|000012e0| 77 69 74 63 68 0d 09 67 | 6c 6f 62 61 6c 20 73 75 |witch..g|lobal su|
|000012f0| 73 70 49 63 6f 6e 65 64 | 0d 09 69 66 20 7b 24 69 |spIconed|..if {$i|
|00001300| 63 6f 6e 69 66 79 4f 6e | 53 77 69 74 63 68 7d 20 |conifyOn|Switch} |
|00001310| 7b 0d 09 09 73 65 74 20 | 77 69 6e 73 20 5b 77 69 |{...set |wins [wi|
|00001320| 6e 4e 61 6d 65 73 20 2d | 66 5d 0d 09 09 66 6f 72 |nNames -|f]...for|
|00001330| 65 61 63 68 20 77 69 6e | 20 24 77 69 6e 73 20 7b |each win| $wins {|
|00001340| 0d 09 09 09 69 66 20 7b | 21 5b 69 63 6f 6e 20 2d |....if {|![icon -|
|00001350| 66 20 22 24 77 69 6e 22 | 20 2d 71 5d 7d 20 7b 0d |f "$win"| -q]} {.|
|00001360| 09 09 09 09 73 65 74 20 | 73 75 73 70 49 63 6f 6e |....set |suspIcon|
|00001370| 65 64 28 24 77 69 6e 29 | 20 31 0d 09 09 09 09 69 |ed($win)| 1.....i|
|00001380| 63 6f 6e 20 2d 66 20 22 | 24 77 69 6e 22 20 2d 74 |con -f "|$win" -t|
|00001390| 0d 09 09 09 7d 0d 09 09 | 7d 0d 09 7d 0d 7d 0d 0d |....}...|}..}.}..|
|000013a0| 70 72 6f 63 20 72 65 73 | 75 6d 65 48 6f 6f 6b 20 |proc res|umeHook |
|000013b0| 6e 61 6d 65 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 69 |name {..|global i|
|000013c0| 63 6f 6e 69 66 79 4f 6e | 53 77 69 74 63 68 20 72 |conifyOn|Switch r|
|000013d0| 65 73 75 6d 65 52 65 76 | 65 72 74 20 73 75 73 70 |esumeRev|ert susp|
|000013e0| 49 63 6f 6e 65 64 0d 09 | 69 66 20 7b 24 69 63 6f |Iconed..|if {$ico|
|000013f0| 6e 69 66 79 4f 6e 53 77 | 69 74 63 68 20 26 26 20 |nifyOnSw|itch && |
|00001400| 5b 69 6e 66 6f 20 65 78 | 69 73 74 73 20 73 75 73 |[info ex|ists sus|
|00001410| 70 49 63 6f 6e 65 64 5d | 7d 20 7b 0d 09 09 73 65 |pIconed]|} {...se|
|00001420| 74 20 77 69 6e 73 20 5b | 77 69 6e 4e 61 6d 65 73 |t wins [|winNames|
|00001430| 20 2d 66 5d 0d 09 09 66 | 6f 72 65 61 63 68 20 77 | -f]...f|oreach w|
|00001440| 69 6e 20 5b 61 72 72 61 | 79 20 6e 61 6d 65 73 20 |in [arra|y names |
|00001450| 73 75 73 70 49 63 6f 6e | 65 64 5d 20 7b 0d 09 09 |suspIcon|ed] {...|
|00001460| 09 69 63 6f 6e 20 2d 66 | 20 22 24 77 69 6e 22 20 |.icon -f| "$win" |
|00001470| 2d 6f 0d 09 09 7d 0d 09 | 09 75 6e 73 65 74 20 73 |-o...}..|.unset s|
|00001480| 75 73 70 49 63 6f 6e 65 | 64 0d 09 7d 0d 09 69 66 |uspIcone|d..}..if|
|00001490| 20 7b 24 72 65 73 75 6d | 65 52 65 76 65 72 74 7d | {$resum|eRevert}|
|000014a0| 20 7b 0d 09 09 73 65 74 | 20 72 65 73 75 6d 65 52 | {...set| resumeR|
|000014b0| 65 76 65 72 74 20 30 0d | 09 09 72 65 76 65 72 74 |evert 0.|..revert|
|000014c0| 0d 09 7d 0d 7d 0d 0d 23 | 20 48 61 6e 64 6c 65 73 |..}.}..#| Handles|
|000014d0| 20 64 79 6e 61 6d 69 63 | 61 6c 6c 79 20 61 64 64 | dynamic|ally add|
|000014e0| 69 6e 67 20 61 6e 64 20 | 64 65 6c 65 74 69 6e 67 |ing and |deleting|
|000014f0| 20 77 69 6e 64 6f 77 20 | 6e 61 6d 65 73 20 66 72 | window |names fr|
|00001500| 6f 6d 20 6d 65 6e 75 2e | 0d 70 72 6f 63 20 61 64 |om menu.|.proc ad|
|00001510| 64 57 69 6e 4e 61 6d 65 | 20 6e 61 6d 65 20 7b 0d |dWinName| name {.|
|00001520| 09 67 6c 6f 62 61 6c 20 | 77 69 6e 4e 61 6d 65 54 |.global |winNameT|
|00001530| 6f 4e 75 6d 0d 09 67 6c | 6f 62 61 6c 20 77 69 6e |oNum..gl|obal win|
|00001540| 4e 75 6d 54 6f 4e 61 6d | 65 0d 09 67 6c 6f 62 61 |NumToNam|e..globa|
|00001550| 6c 20 66 75 6c 6c 4e 61 | 6d 65 73 0d 09 0d 09 66 |l fullNa|mes....f|
|00001560| 6f 72 20 7b 73 65 74 20 | 69 20 30 7d 20 7b 24 69 |or {set |i 0} {$i|
|00001570| 3c 31 30 30 7d 20 7b 69 | 6e 63 72 20 69 7d 20 7b |<100} {i|ncr i} {|
|00001580| 0d 09 09 69 66 20 7b 5b | 63 61 74 63 68 20 7b 73 |...if {[|catch {s|
|00001590| 65 74 20 6e 6d 20 24 77 | 69 6e 4e 75 6d 54 6f 4e |et nm $w|inNumToN|
|000015a0| 61 6d 65 28 24 69 29 7d | 20 72 65 73 5d 20 3d 3d |ame($i)}| res] ==|
|000015b0| 20 22 31 22 7d 20 7b 0d | 09 09 09 69 66 20 7b 24 | "1"} {.|...if {$|
|000015c0| 66 75 6c 6c 4e 61 6d 65 | 73 20 21 3d 20 22 30 22 |fullName|s != "0"|
|000015d0| 7d 20 7b 0d 09 09 09 09 | 73 65 74 20 6e 6d 20 24 |} {.....|set nm $|
|000015e0| 6e 61 6d 65 0d 09 09 09 | 7d 20 65 6c 73 65 20 7b |name....|} else {|
|000015f0| 0d 09 09 09 09 72 65 67 | 65 78 70 20 7b 5b 5e 3a |.....reg|exp {[^:|
|00001600| 5d 2a 24 7d 20 24 6e 61 | 6d 65 20 6e 6d 0d 09 09 |]*$} $na|me nm...|
|00001610| 09 7d 0d 09 09 09 69 66 | 20 7b 24 69 20 3c 20 31 |.}....if| {$i < 1|
|00001620| 30 7d 20 7b 0d 09 09 09 | 09 61 64 64 4d 65 6e 75 |0} {....|.addMenu|
|00001630| 49 74 65 6d 20 2d 6d 20 | 2d 6c 20 22 2f 24 69 22 |Item -m |-l "/$i"|
|00001640| 20 57 69 6e 73 20 24 6e | 6d 0d 09 09 09 7d 20 65 | Wins $n|m....} e|
|00001650| 6c 73 65 20 7b 0d 09 09 | 09 09 61 64 64 4d 65 6e |lse {...|..addMen|
|00001660| 75 49 74 65 6d 20 2d 6d | 20 2d 6c 20 22 22 20 57 |uItem -m| -l "" W|
|00001670| 69 6e 73 20 24 6e 6d 0d | 09 09 09 7d 0d 09 09 09 |ins $nm.|...}....|
|00001680| 73 65 74 20 77 69 6e 4e | 75 6d 54 6f 4e 61 6d 65 |set winN|umToName|
|00001690| 28 24 69 29 20 24 6e 61 | 6d 65 0d 09 09 09 73 65 |($i) $na|me....se|
|000016a0| 74 20 77 69 6e 4e 61 6d | 65 54 6f 4e 75 6d 28 24 |t winNam|eToNum($|
|000016b0| 6e 61 6d 65 29 20 24 69 | 0d 09 09 09 72 65 74 75 |name) $i|....retu|
|000016c0| 72 6e 0d 09 09 7d 0d 09 | 7d 0d 7d 0d 0d 70 72 6f |rn...}..|}.}..pro|
|000016d0| 63 20 72 65 6d 6f 76 65 | 57 69 6e 4e 61 6d 65 20 |c remove|WinName |
|000016e0| 6e 61 6d 65 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 77 |name {..|global w|
|000016f0| 69 6e 4e 61 6d 65 54 6f | 4e 75 6d 0d 09 67 6c 6f |inNameTo|Num..glo|
|00001700| 62 61 6c 20 77 69 6e 4e | 75 6d 54 6f 4e 61 6d 65 |bal winN|umToName|
|00001710| 0d 09 67 6c 6f 62 61 6c | 20 66 75 6c 6c 4e 61 6d |..global| fullNam|
|00001720| 65 73 0d 09 0d 09 73 65 | 74 20 6e 75 6d 20 24 77 |es....se|t num $w|
|00001730| 69 6e 4e 61 6d 65 54 6f | 4e 75 6d 28 24 6e 61 6d |inNameTo|Num($nam|
|00001740| 65 29 0d 09 75 6e 73 65 | 74 20 77 69 6e 4e 75 6d |e)..unse|t winNum|
|00001750| 54 6f 4e 61 6d 65 28 24 | 6e 75 6d 29 0d 09 75 6e |ToName($|num)..un|
|00001760| 73 65 74 20 77 69 6e 4e | 61 6d 65 54 6f 4e 75 6d |set winN|ameToNum|
|00001770| 28 24 6e 61 6d 65 29 0d | 09 69 66 20 7b 24 66 75 |($name).|.if {$fu|
|00001780| 6c 6c 4e 61 6d 65 73 20 | 3d 3d 20 22 31 22 7d 20 |llNames |== "1"} |
|00001790| 7b 0d 09 09 64 65 6c 65 | 74 65 4d 65 6e 75 49 74 |{...dele|teMenuIt|
|000017a0| 65 6d 20 2d 6d 20 57 69 | 6e 73 20 24 6e 61 6d 65 |em -m Wi|ns $name|
|000017b0| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 72 65 67 |..} else| {...reg|
|000017c0| 65 78 70 20 7b 5b 5e 3a | 5d 2a 24 7d 20 24 6e 61 |exp {[^:|]*$} $na|
|000017d0| 6d 65 20 6e 6d 0d 09 09 | 64 65 6c 65 74 65 4d 65 |me nm...|deleteMe|
|000017e0| 6e 75 49 74 65 6d 20 2d | 6d 20 57 69 6e 73 20 24 |nuItem -|m Wins $|
|000017f0| 6e 6d 0d 09 7d 0d 7d 0d | 0d 0d 70 72 6f 63 20 6d |nm..}.}.|..proc m|
|00001800| 65 6e 75 57 69 6e 20 7b | 6d 65 6e 75 20 6e 61 6d |enuWin {|menu nam|
|00001810| 65 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 77 69 6e |e} {..gl|obal win|
|00001820| 4e 61 6d 65 54 6f 4e 75 | 6d 0d 0d 09 73 65 74 20 |NameToNu|m...set |
|00001830| 6e 6d 73 20 5b 61 72 72 | 61 79 20 6e 61 6d 65 73 |nms [arr|ay names|
|00001840| 20 77 69 6e 4e 61 6d 65 | 54 6f 4e 75 6d 5d 0d 09 | winName|ToNum]..|
|00001850| 66 6f 72 65 61 63 68 20 | 6e 6d 20 24 6e 6d 73 20 |foreach |nm $nms |
|00001860| 7b 0d 09 09 69 66 20 7b | 5b 73 74 72 69 6e 67 20 |{...if {|[string |
|00001870| 6d 61 74 63 68 20 2a 24 | 6e 61 6d 65 20 24 6e 6d |match *$|name $nm|
|00001880| 5d 20 3d 3d 20 22 31 22 | 7d 20 20 7b 0d 09 09 09 |] == "1"|}  {....|
|00001890| 62 72 69 6e 67 54 6f 46 | 72 6f 6e 74 20 24 6e 61 |bringToF|ront $na|
|000018a0| 6d 65 0d 09 09 09 69 66 | 20 5b 69 63 6f 6e 20 2d |me....if| [icon -|
|000018b0| 71 5d 20 7b 20 69 63 6f | 6e 20 2d 66 20 24 6e 61 |q] { ico|n -f $na|
|000018c0| 6d 65 20 2d 6f 20 7d 0d | 09 09 09 72 65 74 75 72 |me -o }.|...retur|
|000018d0| 6e 0d 09 09 7d 0d 09 7d | 0d 09 72 65 74 75 72 6e |n...}..}|..return|
|000018e0| 20 22 6e 6f 72 6d 61 6c | 22 0d 7d 0d 0d 0d 73 65 | "normal|".}...se|
|000018f0| 74 20 6c 61 73 74 4d 6f | 64 65 20 30 0d 0d 23 20 |t lastMo|de 0..# |
|00001900| 72 74 61 20 20 43 72 65 | 61 74 69 6e 67 20 74 65 |rta  Cre|ating te|
|00001910| 78 57 61 73 4c 61 73 74 | 20 76 61 72 69 61 62 6c |xWasLast| variabl|
|00001920| 65 0d 73 65 74 20 74 65 | 78 57 61 73 4c 61 73 74 |e.set te|xWasLast|
|00001930| 20 30 0d 23 20 72 74 61 | 20 46 6f 6c 6c 6f 77 69 | 0.# rta| Followi|
|00001940| 6e 67 20 63 68 61 6e 67 | 65 64 20 66 72 6f 6d 20 |ng chang|ed from |
|00001950| 54 68 69 6e 6b 43 20 74 | 6f 20 4d 50 57 0d 0d 0d |ThinkC t|o MPW...|
|00001960| 23 20 4d 6f 64 65 73 0d | 0d 23 20 46 6f 72 74 72 |# Modes.|.# Fortr|
|00001970| 61 6e 20 70 72 6f 67 72 | 61 6d 6d 69 6e 67 20 6d |an progr|amming m|
|00001980| 6f 64 65 20 0d 70 72 6f | 63 20 73 65 74 46 6f 72 |ode .pro|c setFor|
|00001990| 74 72 61 6e 4d 6f 64 65 | 20 7b 7d 20 7b 0d 09 63 |tranMode| {} {..c|
|000019a0| 68 61 6e 67 65 4d 6f 64 | 65 20 22 46 6f 72 74 22 |hangeMod|e "Fort"|
|000019b0| 0d 09 75 70 6c 65 76 65 | 6c 20 23 30 20 7b 0d 09 |..upleve|l #0 {..|
|000019c0| 09 73 65 74 20 65 6c 65 | 63 4c 42 72 61 63 65 20 |.set ele|cLBrace |
|000019d0| 30 0d 09 09 73 65 74 20 | 65 6c 65 63 52 42 72 61 |0...set |elecRBra|
|000019e0| 63 65 20 30 0d 09 09 73 | 65 74 20 65 6c 65 63 74 |ce 0...s|et elect|
|000019f0| 72 69 63 53 65 6d 69 20 | 30 0d 09 09 73 65 74 20 |ricSemi |0...set |
|00001a00| 77 6f 72 64 57 72 61 70 | 20 30 0d 09 09 73 65 74 |wordWrap| 0...set|
|00001a10| 20 66 75 6e 63 45 78 70 | 72 20 7b 5e 28 20 20 20 | funcExp|r {^(   |
|00001a20| 20 20 20 7c 5c 74 29 28 | 73 75 62 72 6f 75 74 69 |   |\t)(|subrouti|
|00001a30| 6e 65 7c 2e 2a 66 75 6e | 63 74 69 6f 6e 7c 53 55 |ne|.*fun|ction|SU|
|00001a40| 42 52 4f 55 54 49 4e 45 | 7c 2e 2a 46 55 4e 43 54 |BROUTINE||.*FUNCT|
|00001a50| 49 4f 4e 29 2e 2a 5c 28 | 2e 2a 24 7d 0d 09 09 73 |ION).*\(|.*$}...s|
|00001a60| 65 74 20 73 6f 72 74 65 | 64 49 73 44 65 66 61 75 |et sorte|dIsDefau|
|00001a70| 6c 74 20 30 0d 09 7d 0d | 7d 0d 0d 0d 23 20 4f 72 |lt 0..}.|}...# Or|
|00001a80| 64 69 6e 61 72 79 2c 20 | 64 65 66 61 75 6c 74 20 |dinary, |default |
|00001a90| 6d 6f 64 65 0d 70 72 6f | 63 20 73 65 74 54 65 78 |mode.pro|c setTex|
|00001aa0| 74 4d 6f 64 65 20 7b 7d | 20 7b 0d 09 63 68 61 6e |tMode {}| {..chan|
|00001ab0| 67 65 4d 6f 64 65 20 22 | 54 65 78 74 22 0d 09 75 |geMode "|Text"..u|
|00001ac0| 70 6c 65 76 65 6c 20 23 | 30 20 7b 0d 09 09 73 65 |plevel #|0 {...se|
|00001ad0| 74 20 65 6c 65 63 4c 42 | 72 61 63 65 20 30 0d 09 |t elecLB|race 0..|
|00001ae0| 09 73 65 74 20 65 6c 65 | 63 52 42 72 61 63 65 20 |.set ele|cRBrace |
|00001af0| 30 0d 09 09 73 65 74 20 | 65 6c 65 63 74 72 69 63 |0...set |electric|
|00001b00| 53 65 6d 69 20 30 0d 09 | 09 73 65 74 20 77 6f 72 |Semi 0..|.set wor|
|00001b10| 64 57 72 61 70 20 31 0d | 09 09 73 65 74 20 70 72 |dWrap 1.|..set pr|
|00001b20| 65 66 69 78 53 74 72 69 | 6e 67 20 22 3e 20 22 0d |efixStri|ng "> ".|
|00001b30| 09 09 73 65 74 20 73 75 | 66 66 69 78 53 74 72 69 |..set su|ffixStri|
|00001b40| 6e 67 20 22 20 3c 2d 2d | 22 0d 09 7d 0d 7d 0d 0d |ng " <--|"..}.}..|
|00001b50| 0d 23 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |.#======|========|
|00001b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001ba0| 3d 3d 0d 0d 23 20 49 6e | 73 74 61 6e 74 69 61 74 |==..# In|stantiat|
|00001bb0| 65 20 61 20 67 6c 6f 62 | 61 6c 20 76 61 72 69 61 |e a glob|al varia|
|00001bc0| 62 6c 65 20 74 6f 20 74 | 68 65 20 70 61 74 68 20 |ble to t|he path |
|00001bd0| 6f 66 20 61 20 66 69 6c | 65 20 28 75 73 75 61 6c |of a fil|e (usual|
|00001be0| 6c 79 20 61 6e 20 61 70 | 70 29 2e 20 41 73 20 61 |ly an ap|p). As a|
|00001bf0| 0d 23 20 73 69 64 65 2d | 65 66 66 65 63 74 2c 20 |.# side-|effect, |
|00001c00| 6d 61 6b 65 20 74 68 65 | 20 69 6e 73 74 61 6e 74 |make the| instant|
|00001c10| 69 61 74 69 6f 6e 20 70 | 65 72 6d 61 6e 65 6e 74 |iation p|ermanent|
|00001c20| 20 62 79 20 61 64 64 69 | 6e 67 20 61 20 6c 69 6e | by addi|ng a lin|
|00001c30| 65 20 74 6f 20 27 64 65 | 66 69 6e 69 74 69 6f 6e |e to 'de|finition|
|00001c40| 73 2e 74 63 6c 27 2e 0d | 70 72 6f 63 20 61 64 64 |s.tcl'..|proc add|
|00001c50| 41 70 70 50 61 74 68 20 | 7b 6e 61 6d 65 20 76 61 |AppPath |{name va|
|00001c60| 72 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 24 76 61 |r} {..gl|obal $va|
|00001c70| 72 0d 09 0d 09 69 66 20 | 7b 5b 63 61 74 63 68 20 |r....if |{[catch |
|00001c80| 7b 67 65 74 66 69 6c 65 | 20 22 46 69 6e 64 20 27 |{getfile| "Find '|
|00001c90| 24 6e 61 6d 65 27 20 61 | 70 70 3a 22 7d 20 70 61 |$name' a|pp:"} pa|
|00001ca0| 74 68 5d 7d 20 7b 72 65 | 74 75 72 6e 20 31 7d 0d |th]} {re|turn 1}.|
|00001cb0| 09 73 65 74 20 24 76 61 | 72 20 24 70 61 74 68 0d |.set $va|r $path.|
|00001cc0| 0d 09 61 64 64 55 73 65 | 72 4c 69 6e 65 20 22 73 |..addUse|rLine "s|
|00001cd0| 65 74 20 24 76 61 72 20 | 5c 22 5b 71 75 6f 74 65 |et $var |\"[quote|
|00001ce0| 45 78 70 72 32 20 24 70 | 61 74 68 5d 5c 22 22 0d |Expr2 $p|ath]\"".|
|00001cf0| 09 72 65 74 75 72 6e 20 | 30 0d 7d 0d 0d 70 72 6f |.return |0.}..pro|
|00001d00| 63 20 61 64 64 55 73 65 | 72 4c 69 6e 65 20 7b 6c |c addUse|rLine {l|
|00001d10| 69 6e 65 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 48 |ine} {..|global H|
|00001d20| 4f 4d 45 0d 0d 09 69 66 | 20 7b 5b 66 69 6c 65 20 |OME...if| {[file |
|00001d30| 65 78 69 73 74 73 20 22 | 24 48 4f 4d 45 3a 75 73 |exists "|$HOME:us|
|00001d40| 65 72 53 74 61 72 74 75 | 70 2e 74 63 6c 22 5d 7d |erStartu|p.tcl"]}|
|00001d50| 20 7b 0d 09 09 73 65 74 | 20 66 69 64 20 5b 6f 70 | {...set| fid [op|
|00001d60| 65 6e 20 22 24 48 4f 4d | 45 3a 75 73 65 72 53 74 |en "$HOM|E:userSt|
|00001d70| 61 72 74 75 70 2e 74 63 | 6c 22 20 22 61 22 5d 0d |artup.tc|l" "a"].|
|00001d80| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 73 65 74 20 |.} else |{...set |
|00001d90| 66 69 64 20 5b 6f 70 65 | 6e 20 22 24 48 4f 4d 45 |fid [ope|n "$HOME|
|00001da0| 3a 75 73 65 72 53 74 61 | 72 74 75 70 2e 74 63 6c |:userSta|rtup.tcl|
|00001db0| 22 20 22 77 22 5d 0d 09 | 7d 0d 09 70 75 74 73 20 |" "w"]..|}..puts |
|00001dc0| 24 66 69 64 20 24 6c 69 | 6e 65 0d 09 63 6c 6f 73 |$fid $li|ne..clos|
|00001dd0| 65 20 24 66 69 64 0d 7d | 0d 0d 0d 70 72 6f 63 20 |e $fid.}|...proc |
|00001de0| 67 65 74 46 69 6c 65 53 | 69 67 20 7b 66 7d 20 7b |getFileS|ig {f} {|
|00001df0| 0d 09 63 61 74 63 68 20 | 7b 6c 69 6e 64 65 78 20 |..catch |{lindex |
|00001e00| 5b 6c 73 20 2d 6c 20 24 | 66 5d 20 35 7d 20 76 61 |[ls -l $|f] 5} va|
|00001e10| 72 0d 09 72 65 74 75 72 | 6e 20 24 76 61 72 0d 7d |r..retur|n $var.}|
|00001e20| 0d 0d 0d 23 20 4c 6f 6f | 6b 20 66 6f 72 20 67 69 |...# Loo|k for gi|
|00001e30| 76 65 6e 20 61 70 70 20 | 73 69 67 20 69 6e 20 61 |ven app |sig in a|
|00001e40| 63 74 69 76 65 20 70 72 | 6f 63 65 73 73 65 73 2e |ctive pr|ocesses.|
|00001e50| 20 49 66 20 6e 6f 74 20 | 74 68 65 72 65 2c 20 74 | If not |there, t|
|00001e60| 72 79 20 74 6f 20 0d 23 | 20 6c 61 75 6e 63 68 20 |ry to .#| launch |
|00001e70| 77 69 74 68 20 27 70 61 | 74 68 27 20 70 72 6f 6d |with 'pa|th' prom|
|00001e80| 70 74 69 6e 67 20 66 6f | 72 20 27 70 61 74 68 27 |pting fo|r 'path'|
|00001e90| 20 69 66 20 6e 65 63 65 | 73 73 61 72 79 2e 0d 23 | if nece|ssary..#|
|00001ea0| 20 52 65 74 75 72 6e 20 | 74 68 65 20 72 65 61 6c | Return |the real|
|00001eb0| 20 6e 61 6d 65 20 6f 66 | 20 74 68 65 20 61 70 70 | name of| the app|
|00001ec0| 2e 20 44 6f 6e 27 74 20 | 73 77 69 74 63 68 2e 0d |. Don't |switch..|
|00001ed0| 70 72 6f 63 20 63 68 65 | 63 6b 52 75 6e 6e 69 6e |proc che|ckRunnin|
|00001ee0| 67 20 7b 6e 61 6d 65 20 | 73 69 67 20 70 61 74 68 |g {name |sig path|
|00001ef0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 24 70 61 74 |} {..glo|bal $pat|
|00001f00| 68 0d 09 66 6f 72 65 61 | 63 68 20 70 72 6f 63 20 |h..forea|ch proc |
|00001f10| 5b 70 72 6f 63 65 73 73 | 65 73 5d 20 7b 0d 09 09 |[process|es] {...|
|00001f20| 69 66 20 7b 5b 6c 69 6e | 64 65 78 20 24 70 72 6f |if {[lin|dex $pro|
|00001f30| 63 20 31 5d 20 3d 3d 20 | 24 73 69 67 7d 20 7b 0d |c 1] == |$sig} {.|
|00001f40| 09 09 09 72 65 74 75 72 | 6e 20 5b 6c 69 6e 64 65 |...retur|n [linde|
|00001f50| 78 20 24 70 72 6f 63 20 | 30 5d 0d 09 09 7d 0d 09 |x $proc |0]...}..|
|00001f60| 7d 0d 09 69 66 20 7b 21 | 5b 69 6e 66 6f 20 65 78 |}..if {!|[info ex|
|00001f70| 69 73 74 73 20 24 70 61 | 74 68 5d 20 7c 7c 20 21 |ists $pa|th] || !|
|00001f80| 5b 66 69 6c 65 20 65 78 | 69 73 74 73 20 5b 73 65 |[file ex|ists [se|
|00001f90| 74 20 24 70 61 74 68 5d | 5d 7d 20 7b 0d 09 09 69 |t $path]|]} {...i|
|00001fa0| 66 20 7b 5b 61 64 64 41 | 70 70 50 61 74 68 20 24 |f {[addA|ppPath $|
|00001fb0| 6e 61 6d 65 20 24 70 61 | 74 68 5d 7d 20 72 65 74 |name $pa|th]} ret|
|00001fc0| 75 72 6e 0d 09 7d 0d 09 | 69 66 20 7b 5b 63 61 74 |urn..}..|if {[cat|
|00001fd0| 63 68 20 7b 67 65 74 46 | 69 6c 65 53 69 67 20 5b |ch {getF|ileSig [|
|00001fe0| 73 65 74 20 24 70 61 74 | 68 5d 7d 5d 7d 20 7b 0d |set $pat|h]}]} {.|
|00001ff0| 09 09 69 66 20 7b 5b 61 | 64 64 41 70 70 50 61 74 |..if {[a|ddAppPat|
|00002000| 68 20 24 6e 61 6d 65 20 | 24 70 61 74 68 5d 7d 20 |h $name |$path]} |
|00002010| 72 65 74 75 72 6e 0d 09 | 7d 0d 09 73 65 74 20 73 |return..|}..set s|
|00002020| 69 67 20 5b 67 65 74 46 | 69 6c 65 53 69 67 20 5b |ig [getF|ileSig [|
|00002030| 73 65 74 20 24 70 61 74 | 68 5d 5d 0d 09 69 66 20 |set $pat|h]]..if |
|00002040| 7b 5b 63 61 74 63 68 20 | 7b 6c 61 75 6e 63 68 20 |{[catch |{launch |
|00002050| 2d 66 20 5b 73 65 74 20 | 24 70 61 74 68 5d 7d 5d |-f [set |$path]}]|
|00002060| 7d 20 7b 0d 09 09 65 72 | 72 6f 72 20 22 50 72 6f |} {...er|ror "Pro|
|00002070| 62 6c 65 6d 20 77 69 74 | 68 20 73 63 72 69 70 74 |blem wit|h script|
|00002080| 2e 22 0d 09 7d 0d 09 72 | 65 74 75 72 6e 20 5b 66 |."..}..r|eturn [f|
|00002090| 69 6c 65 20 74 61 69 6c | 20 5b 73 65 74 20 24 70 |ile tail| [set $p|
|000020a0| 61 74 68 5d 5d 0d 23 09 | 72 65 74 75 72 6e 20 5b |ath]].#.|return [|
|000020b0| 63 68 65 63 6b 52 75 6e | 6e 69 6e 67 20 24 6e 61 |checkRun|ning $na|
|000020c0| 6d 65 20 24 73 69 67 20 | 24 70 61 74 68 5d 0d 7d |me $sig |$path].}|
|000020d0| 0d 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|000020e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000020f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002100| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002110| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002120| 3d 3d 3d 0d 23 20 45 78 | 63 61 6c 69 62 75 72 20 |===.# Ex|calibur |
|00002130| 69 73 20 74 68 65 20 6f | 6e 6c 79 20 4d 61 63 20 |is the o|nly Mac |
|00002140| 73 70 65 6c 6c 2d 63 68 | 65 63 6b 65 72 20 74 68 |spell-ch|ecker th|
|00002150| 61 74 20 49 20 6b 6e 6f | 77 20 6f 66 20 77 68 69 |at I kno|w of whi|
|00002160| 63 68 20 77 69 6c 6c 20 | 68 61 6e 64 6c 65 20 4c |ch will |handle L|
|00002170| 61 54 65 58 20 61 73 0d | 23 20 77 65 6c 6c 20 61 |aTeX as.|# well a|
|00002180| 73 20 6f 72 64 69 6e 61 | 72 79 20 74 65 78 74 2e |s ordina|ry text.|
|00002190| 0d 0d 0d 70 72 6f 63 20 | 73 70 65 6c 6c 63 68 65 |...proc |spellche|
|000021a0| 63 6b 57 69 6e 64 6f 77 | 20 7b 7d 20 7b 0d 09 67 |ckWindow| {} {..g|
|000021b0| 6c 6f 62 61 6c 20 65 78 | 63 61 6c 69 62 75 72 50 |lobal ex|caliburP|
|000021c0| 61 74 68 20 72 65 73 75 | 6d 65 52 65 76 65 72 74 |ath resu|meRevert|
|000021d0| 0d 0d 09 63 61 74 63 68 | 20 7b 63 68 65 63 6b 52 |...catch| {checkR|
|000021e0| 75 6e 6e 69 6e 67 20 45 | 78 63 61 6c 69 62 75 72 |unning E|xcalibur|
|000021f0| 20 58 43 4c 42 20 65 78 | 63 61 6c 69 62 75 72 50 | XCLB ex|caliburP|
|00002200| 61 74 68 7d 20 6e 61 6d | 65 0d 0d 09 69 66 20 7b |ath} nam|e...if {|
|00002210| 5b 77 69 6e 49 6e 66 6f | 20 64 69 72 74 79 5d 7d |[winInfo| dirty]}|
|00002220| 20 7b 0d 09 09 69 66 20 | 7b 5b 61 73 6b 79 65 73 | {...if |{[askyes|
|00002230| 6e 6f 20 22 53 61 76 65 | 20 27 5b 6c 69 6e 64 65 |no "Save| '[linde|
|00002240| 78 20 5b 77 69 6e 4e 61 | 6d 65 73 5d 20 30 5d 27 |x [winNa|mes] 0]'|
|00002250| 3f 22 5d 20 3d 3d 20 22 | 79 65 73 22 7d 20 7b 0d |?"] == "|yes"} {.|
|00002260| 09 09 09 73 61 76 65 0d | 09 09 7d 0d 09 7d 0d 09 |...save.|..}..}..|
|00002270| 69 66 20 7b 5b 63 61 74 | 63 68 20 7b 73 65 6e 64 |if {[cat|ch {send|
|00002280| 4f 70 65 6e 45 76 65 6e | 74 20 2d 6e 20 24 6e 61 |OpenEven|t -n $na|
|00002290| 6d 65 20 5b 6c 69 6e 64 | 65 78 20 5b 77 69 6e 4e |me [lind|ex [winN|
|000022a0| 61 6d 65 73 20 2d 66 5d | 20 30 5d 7d 5d 20 7d 20 |ames -f]| 0]}] } |
|000022b0| 7b 0d 09 09 62 65 65 70 | 20 0d 09 7d 20 65 6c 73 |{...beep| ..} els|
|000022c0| 65 20 7b 0d 09 09 73 77 | 69 74 63 68 54 6f 20 24 |e {...sw|itchTo $|
|000022d0| 6e 61 6d 65 0d 09 7d 0d | 09 73 65 74 20 72 65 73 |name..}.|.set res|
|000022e0| 75 6d 65 52 65 76 65 72 | 74 20 31 0d 7d 0d 0d 70 |umeRever|t 1.}..p|
|000022f0| 72 6f 63 20 73 70 65 6c | 6c 63 68 65 63 6b 53 65 |roc spel|lcheckSe|
|00002300| 6c 65 63 74 69 6f 6e 20 | 7b 7d 20 7b 0d 09 67 6c |lection |{} {..gl|
|00002310| 6f 62 61 6c 20 65 78 63 | 61 6c 69 62 75 72 50 61 |obal exc|aliburPa|
|00002320| 74 68 20 0d 0d 09 63 61 | 74 63 68 20 7b 63 68 65 |th ...ca|tch {che|
|00002330| 63 6b 52 75 6e 6e 69 6e | 67 20 45 78 63 61 6c 69 |ckRunnin|g Excali|
|00002340| 62 75 72 20 58 43 4c 42 | 20 65 78 63 61 6c 69 62 |bur XCLB| excalib|
|00002350| 75 72 50 61 74 68 7d 20 | 6e 61 6d 65 0d 0d 09 69 |urPath} |name...i|
|00002360| 66 20 7b 5b 67 65 74 50 | 6f 73 5d 20 3d 3d 20 5b |f {[getP|os] == [|
|00002370| 73 65 6c 45 6e 64 5d 7d | 20 7b 0d 09 09 62 65 65 |selEnd]}| {...bee|
|00002380| 70 0d 09 09 6d 65 73 73 | 61 67 65 20 22 4e 6f 20 |p...mess|age "No |
|00002390| 73 65 6c 65 63 74 69 6f | 6e 22 0d 09 09 72 65 74 |selectio|n"...ret|
|000023a0| 75 72 6e 3b 0d 09 7d 0d | 09 63 6f 70 79 0d 09 73 |urn;..}.|.copy..s|
|000023b0| 77 69 74 63 68 54 6f 20 | 24 6e 61 6d 65 0d 7d 0d |witchTo |$name.}.|
|000023c0| 0d 6d 65 6e 75 20 2d 6e | 20 24 65 78 63 61 6c 69 |.menu -n| $excali|
|000023d0| 62 75 72 4d 65 6e 75 20 | 7b 0d 09 22 73 70 65 6c |burMenu |{.."spel|
|000023e0| 6c 63 68 65 63 6b 57 69 | 6e 64 6f 77 22 0d 7d 0d |lcheckWi|ndow".}.|
|000023f0| 69 6e 73 65 72 74 4d 65 | 6e 75 09 24 65 78 63 61 |insertMe|nu.$exca|
|00002400| 6c 69 62 75 72 4d 65 6e | 75 0d 0d 23 3d 3d 3d 3d |liburMen|u..#====|
|00002410| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002420| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002430| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002440| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002450| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0d 0d 70 |========|====...p|
|00002460| 72 6f 63 20 63 68 61 6e | 67 65 4d 6f 64 65 20 7b |roc chan|geMode {|
|00002470| 6e 65 77 4d 6f 64 65 7d | 20 7b 0d 09 67 6c 6f 62 |newMode}| {..glob|
|00002480| 61 6c 20 6c 61 73 74 4d | 6f 64 65 0d 09 67 6c 6f |al lastM|ode..glo|
|00002490| 62 61 6c 20 73 61 76 65 | 64 49 73 4d 65 74 61 0d |bal save|dIsMeta.|
|000024a0| 09 67 6c 6f 62 61 6c 20 | 77 6f 72 64 42 72 65 61 |.global |wordBrea|
|000024b0| 6b 0d 09 67 6c 6f 62 61 | 6c 20 77 6f 72 64 42 72 |k..globa|l wordBr|
|000024c0| 65 61 6b 50 72 65 66 61 | 63 65 0d 09 67 6c 6f 62 |eakPrefa|ce..glob|
|000024d0| 61 6c 20 6f 70 74 69 6f | 6e 49 73 4d 65 74 61 0d |al optio|nIsMeta.|
|000024e0| 09 67 6c 6f 62 61 6c 20 | 6c 61 74 65 78 4d 65 6e |.global |latexMen|
|000024f0| 75 20 65 78 63 61 6c 69 | 62 75 72 4d 65 6e 75 20 |u excali|burMenu |
|00002500| 74 68 69 6e 6b 4d 65 6e | 75 20 74 6f 6f 6c 73 65 |thinkMen|u toolse|
|00002510| 72 76 65 72 4d 65 6e 75 | 0d 09 0d 09 64 69 73 70 |rverMenu|....disp|
|00002520| 6c 61 79 4d 6f 64 65 20 | 24 6e 65 77 4d 6f 64 65 |layMode |$newMode|
|00002530| 0d 09 69 66 20 7b 24 6c | 61 73 74 4d 6f 64 65 20 |..if {$l|astMode |
|00002540| 3d 3d 20 24 6e 65 77 4d | 6f 64 65 7d 20 72 65 74 |== $newM|ode} ret|
|00002550| 75 72 6e 0d 09 0d 09 63 | 61 73 65 20 24 6c 61 73 |urn....c|ase $las|
|00002560| 74 4d 6f 64 65 20 69 6e | 20 7b 0d 09 09 22 54 65 |tMode in| {..."Te|
|00002570| 78 22 20 7b 0d 09 09 09 | 73 65 74 20 6f 70 74 69 |x" {....|set opti|
|00002580| 6f 6e 49 73 4d 65 74 61 | 20 24 73 61 76 65 64 49 |onIsMeta| $savedI|
|00002590| 73 4d 65 74 61 0d 09 09 | 09 73 65 74 20 77 6f 72 |sMeta...|.set wor|
|000025a0| 64 42 72 65 61 6b 50 72 | 65 66 61 63 65 20 7b 5b |dBreakPr|eface {[|
|000025b0| 5e 61 2d 7a 41 2d 5a 30 | 2d 39 5f 5d 7d 0d 09 09 |^a-zA-Z0|-9_]}...|
|000025c0| 09 73 65 74 20 77 6f 72 | 64 42 72 65 61 6b 20 7b |.set wor|dBreak {|
|000025d0| 5b 61 2d 7a 41 2d 5a 30 | 2d 39 5f 5d 2b 7d 0d 09 |[a-zA-Z0|-9_]+}..|
|000025e0| 09 09 73 65 74 20 6f 70 | 74 69 6f 6e 49 73 4d 65 |..set op|tionIsMe|
|000025f0| 74 61 20 31 0d 09 09 09 | 63 61 74 63 68 20 7b 72 |ta 1....|catch {r|
|00002600| 65 6d 6f 76 65 4d 65 6e | 75 20 24 6c 61 74 65 78 |emoveMen|u $latex|
|00002610| 4d 65 6e 75 7d 0d 09 09 | 09 69 6e 73 65 72 74 4d |Menu}...|.insertM|
|00002620| 65 6e 75 20 24 65 78 63 | 61 6c 69 62 75 72 4d 65 |enu $exc|aliburMe|
|00002630| 6e 75 0d 09 09 7d 0d 09 | 09 22 43 73 68 22 20 7b |nu...}..|."Csh" {|
|00002640| 0d 09 09 09 63 61 74 63 | 68 20 7b 72 65 6d 6f 76 |....catc|h {remov|
|00002650| 65 4d 65 6e 75 20 22 54 | 63 6c 22 7d 0d 09 09 7d |eMenu "T|cl"}...}|
|00002660| 0d 09 09 22 54 63 6c 22 | 20 7b 0d 09 09 09 63 61 |..."Tcl"| {....ca|
|00002670| 74 63 68 20 7b 72 65 6d | 6f 76 65 4d 65 6e 75 20 |tch {rem|oveMenu |
|00002680| 22 54 63 6c 22 7d 0d 09 | 09 7d 0d 09 09 22 42 52 |"Tcl"}..|.}..."BR|
|00002690| 57 5a 22 20 7b 0d 09 09 | 09 63 61 74 63 68 20 7b |WZ" {...|.catch {|
|000026a0| 72 65 6d 6f 76 65 4d 65 | 6e 75 20 22 42 72 6f 77 |removeMe|nu "Brow|
|000026b0| 73 65 22 7d 0d 09 09 7d | 0d 09 09 22 43 22 20 7b |se"}...}|..."C" {|
|000026c0| 0d 09 09 09 63 61 74 63 | 68 20 7b 72 65 6d 6f 76 |....catc|h {remov|
|000026d0| 65 4d 65 6e 75 09 24 74 | 68 69 6e 6b 4d 65 6e 75 |eMenu.$t|hinkMenu|
|000026e0| 7d 0d 09 09 09 63 61 74 | 63 68 20 7b 72 65 6d 6f |}....cat|ch {remo|
|000026f0| 76 65 4d 65 6e 75 09 24 | 74 6f 6f 6c 73 65 72 76 |veMenu.$|toolserv|
|00002700| 65 72 4d 65 6e 75 7d 0d | 09 09 7d 0d 20 09 09 22 |erMenu}.|..}. .."|
|00002710| 43 2b 2b 22 20 7b 0d 09 | 09 09 63 61 74 63 68 20 |C++" {..|..catch |
|00002720| 7b 72 65 6d 6f 76 65 4d | 65 6e 75 09 24 74 68 69 |{removeM|enu.$thi|
|00002730| 6e 6b 4d 65 6e 75 7d 0d | 09 09 09 63 61 74 63 68 |nkMenu}.|...catch|
|00002740| 20 7b 72 65 6d 6f 76 65 | 4d 65 6e 75 09 24 74 6f | {remove|Menu.$to|
|00002750| 6f 6c 73 65 72 76 65 72 | 4d 65 6e 75 7d 0d 09 09 |olserver|Menu}...|
|00002760| 7d 0d 09 7d 0d 09 67 6c | 6f 62 61 6c 20 6d 6f 64 |}..}..gl|obal mod|
|00002770| 65 0d 09 73 65 74 20 6d | 6f 64 65 20 24 6e 65 77 |e..set m|ode $new|
|00002780| 4d 6f 64 65 0d 09 73 65 | 74 20 6c 61 73 74 4d 6f |Mode..se|t lastMo|
|00002790| 64 65 20 24 6e 65 77 4d | 6f 64 65 0d 7d 0d 09 0d |de $newM|ode.}...|
|000027a0| 0d 70 72 6f 63 20 61 6c | 70 68 61 48 65 6c 70 20 |.proc al|phaHelp |
|000027b0| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 48 4f 4d |{} {..gl|obal HOM|
|000027c0| 45 0d 09 65 64 69 74 20 | 2d 72 20 2d 6d 20 22 24 |E..edit |-r -m "$|
|000027d0| 48 4f 4d 45 3a 48 65 6c | 70 3a 20 20 20 20 49 6e |HOME:Hel|p:    In|
|000027e0| 74 72 6f 20 20 20 20 20 | 22 0d 7d 0d 0d 0d 70 72 |tro     |".}...pr|
|000027f0| 6f 63 20 74 63 6c 48 65 | 6c 70 20 7b 7d 20 7b 0d |oc tclHe|lp {} {.|
|00002800| 09 67 6c 6f 62 61 6c 20 | 48 4f 4d 45 0d 09 65 64 |.global |HOME..ed|
|00002810| 69 74 20 2d 72 20 2d 6d | 20 22 24 48 4f 4d 45 3a |it -r -m| "$HOME:|
|00002820| 48 65 6c 70 3a 20 54 63 | 6c 20 4d 61 6e 75 61 6c |Help: Tc|l Manual|
|00002830| 22 0d 7d 0d 0d 0d 73 65 | 74 20 70 61 74 74 65 72 |".}...se|t patter|
|00002840| 6e 4c 69 62 72 61 72 79 | 20 7b 0d 09 7b 20 22 50 |nLibrary| {..{ "P|
|00002850| 61 73 63 61 6c 20 74 6f | 20 43 20 43 6f 6d 6d 65 |ascal to| C Comme|
|00002860| 6e 74 73 22 20 7b 09 09 | 5c 7b 28 5b 5e 5c 7d 5d |nts" {..|\{([^\}]|
|00002870| 2a 29 5c 7d 7d 20 7b 2f | 2a 20 5c 31 20 2a 2f 7d |*)\}} {/|* \1 */}|
|00002880| 20 7d 0d 09 7b 20 22 43 | 2b 2b 20 74 6f 20 43 20 | }..{ "C|++ to C |
|00002890| 43 6f 6d 6d 65 6e 74 73 | 22 20 7b 2f 2f 28 2e 2a |Comments|" {//(.*|
|000028a0| 29 7d 20 7b 2f 2a 20 5c | 31 20 2a 2f 7d 7d 0d 7d |)} {/* \|1 */}}.}|
|000028b0| 0d 0d 0d 70 72 6f 63 20 | 64 69 76 69 64 69 6e 67 |...proc |dividing|
|000028c0| 4c 69 6e 65 20 7b 7d 20 | 7b 0d 09 69 6e 73 65 72 |Line {} |{..inser|
|000028d0| 74 54 65 78 74 20 22 3d | 3d 3d 3d 3d 3d 3d 3d 3d |tText "=|========|
|000028e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000028f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002920| 3d 3d 3d 3d 3d 3d 3d 5c | 72 22 0d 7d 0d 62 69 6e |=======\|r".}.bin|
|00002930| 64 20 27 6c 27 20 3c 43 | 3e 20 64 69 76 69 64 69 |d 'l' <C|> dividi|
|00002940| 6e 67 4c 69 6e 65 0d 0d | 70 72 6f 63 20 74 65 78 |ngLine..|proc tex|
|00002950| 44 69 76 69 64 69 6e 67 | 4c 69 6e 65 20 7b 7d 20 |Dividing|Line {} |
|00002960| 7b 0d 09 69 6e 73 65 72 | 74 54 65 78 74 20 22 25 |{..inser|tText "%|
|00002970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029c0| 5c 72 22 0d 7d 0d 62 69 | 6e 64 20 27 6c 27 20 3c |\r".}.bi|nd 'l' <|
|000029d0| 43 3e 20 74 65 78 44 69 | 76 69 64 69 6e 67 4c 69 |C> texDi|vidingLi|
|000029e0| 6e 65 20 54 65 58 0d 0d | 70 72 6f 63 20 63 44 69 |ne TeX..|proc cDi|
|000029f0| 76 69 64 69 6e 67 4c 69 | 6e 65 20 7b 7d 20 7b 0d |vidingLi|ne {} {.|
|00002a00| 09 69 6e 73 65 72 74 54 | 65 78 74 20 22 2f 2f 3d |.insertT|ext "//=|
|00002a10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 5c |========|=======\|
|00002a60| 72 22 0d 7d 0d 62 69 6e | 64 20 27 6c 27 20 3c 43 |r".}.bin|d 'l' <C|
|00002a70| 3e 20 63 44 69 76 69 64 | 69 6e 67 4c 69 6e 65 20 |> cDivid|ingLine |
|00002a80| 43 0d 62 69 6e 64 20 27 | 6c 27 20 3c 43 3e 20 63 |C.bind '|l' <C> c|
|00002a90| 44 69 76 69 64 69 6e 67 | 4c 69 6e 65 20 43 2b 2b |Dividing|Line C++|
|00002aa0| 0d 0d 70 72 6f 63 20 74 | 63 6c 44 69 76 69 64 69 |..proc t|clDividi|
|00002ab0| 6e 67 4c 69 6e 65 20 7b | 7d 20 7b 0d 09 69 6e 73 |ngLine {|} {..ins|
|00002ac0| 65 72 74 54 65 78 74 20 | 22 23 3d 3d 3d 3d 3d 3d |ertText |"#======|
|00002ad0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002ae0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002af0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 5c 72 22 0d 7d 0d |========|==\r".}.|
|00002b20| 62 69 6e 64 20 27 6c 27 | 20 3c 43 3e 20 74 63 6c |bind 'l'| <C> tcl|
|00002b30| 44 69 76 69 64 69 6e 67 | 4c 69 6e 65 20 54 63 6c |Dividing|Line Tcl|
|00002b40| 0d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |...#====|========|
|00002b50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b90| 3d 3d 3d 3d 0d 0d 69 66 | 20 7b 5b 63 61 74 63 68 |====..if| {[catch|
|00002ba0| 20 7b 69 6e 66 6f 20 61 | 72 67 73 20 6f 6c 64 43 | {info a|rgs oldC|
|00002bb0| 64 7d 5d 7d 20 7b 0d 09 | 72 65 6e 61 6d 65 20 63 |d}]} {..|rename c|
|00002bc0| 64 20 6f 6c 64 43 64 0d | 7d 0d 0d 70 72 6f 63 20 |d oldCd.|}..proc |
|00002bd0| 63 64 20 61 72 67 73 20 | 7b 0d 09 67 6c 6f 62 61 |cd args |{..globa|
|00002be0| 6c 20 48 4f 4d 45 0d 09 | 69 66 20 7b 5b 6c 6c 65 |l HOME..|if {[lle|
|00002bf0| 6e 67 74 68 20 24 61 72 | 67 73 5d 7d 20 7b 0d 09 |ngth $ar|gs]} {..|
|00002c00| 09 6f 6c 64 43 64 20 5b | 73 74 72 69 6e 67 20 74 |.oldCd [|string t|
|00002c10| 72 69 6d 20 5b 65 76 61 | 6c 20 6c 69 73 74 20 24 |rim [eva|l list $|
|00002c20| 61 72 67 73 5d 20 22 09 | 09 5c 7b 5c 7d 22 5d 0d |args] ".|.\{\}"].|
|00002c30| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 6f 6c 64 43 |.} else |{...oldC|
|00002c40| 64 20 24 48 4f 4d 45 0d | 09 7d 0d 7d 0d 0d 23 3d |d $HOME.|.}.}..#=|
|00002c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00002ca0| 20 0d 70 72 6f 63 20 67 | 65 74 56 61 72 56 61 6c | .proc g|etVarVal|
|00002cb0| 75 65 20 7b 7d 20 7b 0d | 09 73 65 74 20 76 61 6c |ue {} {.|.set val|
|00002cc0| 20 5b 6c 69 73 74 70 69 | 63 6b 20 2d 70 20 7b 57 | [listpi|ck -p {W|
|00002cd0| 68 69 63 68 20 76 61 72 | 3f 7d 20 5b 6c 73 6f 72 |hich var|?} [lsor|
|00002ce0| 74 20 5b 69 6e 66 6f 20 | 67 6c 6f 62 61 6c 73 5d |t [info |globals]|
|00002cf0| 5d 5d 0d 09 69 66 20 7b | 21 5b 73 74 72 69 6e 67 |]]..if {|![string|
|00002d00| 20 6c 65 6e 67 74 68 20 | 24 76 61 6c 5d 7d 20 72 | length |$val]} r|
|00002d10| 65 74 75 72 6e 0d 09 67 | 6c 6f 62 61 6c 20 24 76 |eturn..g|lobal $v|
|00002d20| 61 6c 0d 09 61 6c 65 72 | 74 6e 6f 74 65 20 5b 6a |al..aler|tnote [j|
|00002d30| 6f 69 6e 20 5b 6c 69 73 | 74 20 22 27 24 76 61 6c |oin [lis|t "'$val|
|00002d40| 27 20 3d 20 22 20 5b 73 | 65 74 20 24 76 61 6c 5d |' = " [s|et $val]|
|00002d50| 5d 20 22 22 5d 0d 7d 0d | 0d 23 3d 3d 3d 3d 3d 3d |] ""].}.|.#======|
|00002d60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 09 0d 70 72 6f |========|==...pro|
|00002db0| 63 20 73 65 6c 65 63 74 | 50 61 72 61 67 72 61 70 |c select|Paragrap|
|00002dc0| 68 20 7b 7d 20 7b 0d 09 | 73 65 74 20 70 6f 73 20 |h {} {..|set pos |
|00002dd0| 5b 67 65 74 50 6f 73 5d | 0d 09 73 65 74 20 73 74 |[getPos]|..set st|
|00002de0| 61 72 74 20 5b 70 61 72 | 61 53 74 61 72 74 20 24 |art [par|aStart $|
|00002df0| 70 6f 73 5d 20 0d 09 73 | 65 74 20 66 69 6e 69 73 |pos] ..s|et finis|
|00002e00| 68 20 5b 70 61 72 61 46 | 69 6e 69 73 68 20 24 70 |h [paraF|inish $p|
|00002e10| 6f 73 5d 0d 09 67 6f 74 | 6f 20 24 73 74 61 72 74 |os]..got|o $start|
|00002e20| 0d 09 73 65 6c 65 63 74 | 20 24 73 74 61 72 74 20 |..select| $start |
|00002e30| 24 66 69 6e 69 73 68 0d | 7d 0d 0d 23 20 77 72 61 |$finish.|}..# wra|
|00002e40| 70 54 65 78 74 20 3d 3d | 20 20 67 65 74 54 65 78 |pText ==|  getTex|
|00002e50| 74 20 3b 20 62 72 65 61 | 6b 49 6e 74 6f 4c 69 6e |t ; brea|kIntoLin|
|00002e60| 65 73 20 3b 20 72 65 70 | 6c 61 63 65 54 65 78 74 |es ; rep|laceText|
|00002e70| 0d 23 20 52 65 6d 6f 76 | 65 20 74 65 78 74 20 66 |.# Remov|e text f|
|00002e80| 72 6f 6d 20 77 69 6e 64 | 6f 77 2c 20 74 72 61 6e |rom wind|ow, tran|
|00002e90| 73 66 6f 72 6d 20 28 6a | 6f 69 6e 2c 20 64 65 6c |sform (j|oin, del|
|00002ea0| 2d 77 73 29 2c 20 69 6e | 73 65 72 74 20 62 61 63 |-ws), in|sert bac|
|00002eb0| 6b 20 69 6e 74 6f 20 77 | 69 6e 64 6f 77 2e 0d 70 |k into w|indow..p|
|00002ec0| 72 6f 63 20 66 69 6c 6c | 54 65 78 74 42 79 50 61 |roc fill|TextByPa|
|00002ed0| 72 20 7b 66 72 6f 6d 20 | 74 6f 7d 20 7b 0d 09 73 |r {from |to} {..s|
|00002ee0| 65 74 20 74 65 78 74 20 | 5b 67 65 74 54 65 78 74 |et text |[getText|
|00002ef0| 20 24 66 72 6f 6d 20 24 | 74 6f 5d 0d 09 72 65 67 | $from $|to]..reg|
|00002f00| 73 75 62 20 2d 61 6c 6c | 20 22 5c 72 28 5c 5b 20 |sub -all| "\r(\[ |
|00002f10| 5c 74 5c 5d 2a 5c 72 29 | 2b 22 20 24 74 65 78 74 |\t\]*\r)|+" $text|
|00002f20| 20 22 5c 72 5c 72 5c 72 | 22 20 74 65 78 74 0d 09 | "\r\r\r|" text..|
|00002f30| 72 65 67 73 75 62 20 2d | 61 6c 6c 20 22 28 5c 5b |regsub -|all "(\[|
|00002f40| 5e 5c 72 5c 5d 29 5c 72 | 22 20 24 74 65 78 74 20 |^\r\])\r|" $text |
|00002f50| 22 5c 5c 31 20 22 20 74 | 65 78 74 0d 09 72 65 67 |"\\1 " t|ext..reg|
|00002f60| 73 75 62 20 2d 61 6c 6c | 20 22 5c 5b 20 5c 74 5c |sub -all| "\[ \t\|
|00002f70| 5d 2b 22 20 24 74 65 78 | 74 20 22 20 22 20 74 65 |]+" $tex|t " " te|
|00002f80| 78 74 0d 09 72 65 74 75 | 72 6e 20 5b 62 72 65 61 |xt..retu|rn [brea|
|00002f90| 6b 49 6e 74 6f 4c 69 6e | 65 73 20 24 74 65 78 74 |kIntoLin|es $text|
|00002fa0| 5d 0d 7d 0d 0d 70 72 6f | 63 20 66 69 6c 6c 52 65 |].}..pro|c fillRe|
|00002fb0| 67 69 6f 6e 42 79 50 61 | 72 20 7b 7b 73 74 61 72 |gionByPa|r {{star|
|00002fc0| 74 20 2d 31 7d 20 7b 66 | 69 6e 69 73 68 20 2d 31 |t -1} {f|inish -1|
|00002fd0| 7d 7d 20 7b 0d 23 09 23 | 20 69 66 20 7b 5b 67 65 |}} {.#.#| if {[ge|
|00002fe0| 74 50 6f 73 5d 20 3d 3d | 20 5b 73 65 6c 45 6e 64 |tPos] ==| [selEnd|
|00002ff0| 5d 7d 20 7b 20 72 65 74 | 75 72 6e 7d 0d 09 69 66 |]} { ret|urn}..if|
|00003000| 20 7b 28 24 73 74 61 72 | 74 20 3c 20 30 29 20 7c | {($star|t < 0) ||
|00003010| 7c 20 28 24 66 69 6e 69 | 73 68 20 3c 20 30 29 7d || ($fini|sh < 0)}|
|00003020| 20 7b 0d 09 09 73 65 74 | 20 73 74 61 72 74 20 5b | {...set| start [|
|00003030| 6c 69 6e 65 53 74 61 72 | 74 20 5b 67 65 74 50 6f |lineStar|t [getPo|
|00003040| 73 5d 5d 0d 09 09 73 65 | 74 20 66 69 6e 69 73 68 |s]]...se|t finish|
|00003050| 20 5b 73 65 6c 45 6e 64 | 5d 20 7d 0d 09 69 66 20 | [selEnd|] }..if |
|00003060| 7b 24 73 74 61 72 74 20 | 3e 3d 20 24 66 69 6e 69 |{$start |>= $fini|
|00003070| 73 68 7d 20 72 65 74 75 | 72 6e 0d 09 67 6f 74 6f |sh} retu|rn..goto|
|00003080| 20 24 73 74 61 72 74 0d | 09 73 65 74 20 74 65 78 | $start.|.set tex|
|00003090| 74 20 5b 66 69 6c 6c 54 | 65 78 74 42 79 50 61 72 |t [fillT|extByPar|
|000030a0| 20 24 73 74 61 72 74 20 | 24 66 69 6e 69 73 68 5d | $start |$finish]|
|000030b0| 0d 09 72 65 70 6c 61 63 | 65 54 65 78 74 20 24 73 |..replac|eText $s|
|000030c0| 74 61 72 74 20 24 66 69 | 6e 69 73 68 20 24 74 65 |tart $fi|nish $te|
|000030d0| 78 74 20 22 5c 72 22 0d | 7d 0d 09 0d 23 0d 23 20 |xt "\r".|}...#.# |
|000030e0| 6a 6f 69 6e 20 4c 69 6e | 65 73 20 69 6e 20 72 65 |join Lin|es in re|
|000030f0| 67 69 6f 6e 20 2d 2d 20 | 69 66 20 6e 6f 20 6f 70 |gion -- |if no op|
|00003100| 74 69 6f 6e 61 6c 20 61 | 72 67 73 2c 20 75 73 65 |tional a|rgs, use|
|00003110| 20 73 65 6c 65 63 74 69 | 6f 6e 0d 23 0d 70 72 6f | selecti|on.#.pro|
|00003120| 63 20 6a 6f 69 6e 52 65 | 67 69 6f 6e 20 7b 7b 66 |c joinRe|gion {{f|
|00003130| 72 6f 6d 20 2d 31 7d 20 | 7b 74 6f 20 2d 31 7d 7d |rom -1} |{to -1}}|
|00003140| 20 7b 0d 09 69 66 20 7b | 28 24 66 72 6f 6d 20 3c | {..if {|($from <|
|00003150| 20 30 29 20 7c 7c 20 28 | 24 74 6f 20 3c 20 30 29 | 0) || (|$to < 0)|
|00003160| 7d 20 7b 09 73 65 74 20 | 66 72 6f 6d 20 5b 67 65 |} {.set |from [ge|
|00003170| 74 50 6f 73 5d 20 3b 20 | 73 65 74 20 74 6f 20 5b |tPos] ; |set to [|
|00003180| 73 65 6c 45 6e 64 5d 20 | 7d 0d 09 69 66 20 7b 24 |selEnd] |}..if {$|
|00003190| 66 72 6f 6d 20 3e 3d 20 | 24 74 6f 7d 20 72 65 74 |from >= |$to} ret|
|000031a0| 75 72 6e 0d 09 73 65 74 | 20 74 65 78 74 20 5b 67 |urn..set| text [g|
|000031b0| 65 74 54 65 78 74 20 24 | 66 72 6f 6d 20 24 74 6f |etText $|from $to|
|000031c0| 5d 0d 09 72 65 67 73 75 | 62 20 2d 61 6c 6c 20 22 |]..regsu|b -all "|
|000031d0| 5c 72 28 5c 5b 20 5c 74 | 5c 5d 2a 5c 72 29 2b 22 |\r(\[ \t|\]*\r)+"|
|000031e0| 20 24 74 65 78 74 20 22 | 5c 72 5c 72 5c 72 22 20 | $text "|\r\r\r" |
|000031f0| 74 65 78 74 0d 09 72 65 | 67 73 75 62 20 2d 61 6c |text..re|gsub -al|
|00003200| 6c 20 22 28 5c 5b 5e 5c | 72 5c 5d 29 5c 72 22 20 |l "(\[^\|r\])\r" |
|00003210| 24 74 65 78 74 20 22 5c | 5c 31 20 22 20 74 65 78 |$text "\|\1 " tex|
|00003220| 74 0d 09 72 65 70 6c 61 | 63 65 54 65 78 74 20 24 |t..repla|ceText $|
|00003230| 66 72 6f 6d 20 24 74 6f | 20 24 74 65 78 74 20 22 |from $to| $text "|
|00003240| 5c 72 22 0d 7d 0d 23 20 | 57 41 52 4e 49 4e 47 3a |\r".}.# |WARNING:|
|00003250| 09 72 65 67 73 75 62 20 | 5e 24 20 72 65 66 65 72 |.regsub |^$ refer|
|00003260| 73 20 74 6f 20 73 74 72 | 69 6e 67 20 65 6e 64 70 |s to str|ing endp|
|00003270| 74 73 20 28 6e 6f 74 20 | 6c 69 6e 65 73 29 0d 23 |ts (not |lines).#|
|00003280| 20 46 55 54 55 52 45 3a | 09 66 69 6c 74 65 72 4c | FUTURE:|.filterL|
|00003290| 69 6e 65 73 20 6c 69 6b | 65 20 70 65 72 6c 3a 0d |ines lik|e perl:.|
|000032a0| 23 09 72 65 70 6c 61 63 | 65 54 65 78 74 5b 61 70 |#.replac|eText[ap|
|000032b0| 70 6c 79 5f 74 6f 5f 61 | 6c 6c 28 63 6d 64 2c 73 |ply_to_a|ll(cmd,s|
|000032c0| 70 6c 69 74 20 5b 67 65 | 74 54 65 78 74 20 5b 67 |plit [ge|tText [g|
|000032d0| 65 74 50 6f 73 5d 20 5b | 73 65 6c 45 6e 64 5d 5d |etPos] [|selEnd]]|
|000032e0| 20 22 5c 72 22 29 5d 0d | 23 20 4f 52 3a 09 72 65 | "\r")].|# OR:.re|
|000032f0| 70 6c 61 63 65 49 6e 52 | 65 67 69 6f 6e 3a 20 64 |placeInR|egion: d|
|00003300| 75 70 5f 5c 72 2c 20 24 | 3d 3e 5c 72 20 3f 3f 0d |up_\r, $|=>\r ??.|
|00003310| 23 0d 0d 0d 23 0d 23 20 | 52 65 6d 6f 76 65 20 74 |#...#.# |Remove t|
|00003320| 65 78 74 20 66 72 6f 6d | 20 77 69 6e 64 6f 77 2c |ext from| window,|
|00003330| 20 74 72 61 6e 73 66 6f | 72 6d 20 28 64 65 6c 65 | transfo|rm (dele|
|00003340| 74 65 20 64 75 70 20 77 | 73 29 2c 20 69 6e 73 65 |te dup w|s), inse|
|00003350| 72 74 20 62 61 63 6b 20 | 69 6e 74 6f 20 77 69 6e |rt back |into win|
|00003360| 64 6f 77 2e 0d 23 0d 23 | 20 69 6e 70 75 74 73 3a |dow..#.#| inputs:|
|00003370| 20 6d 65 73 73 61 67 65 | 2c 20 61 6c 65 72 74 6e | message|, alertn|
|00003380| 6f 74 65 2c 20 61 73 6b | 79 65 73 6e 6f 2c 20 6c |ote, ask|yesno, l|
|00003390| 69 73 74 70 69 63 6b 2c | 20 70 72 6f 6d 70 74 20 |istpick,| prompt |
|000033a0| 4b 49 4c 4c 53 20 53 45 | 4c 45 43 54 49 4f 4e 2e |KILLS SE|LECTION.|
|000033b0| 0d 23 20 73 65 61 72 63 | 68 3a 20 62 6e 64 73 20 |.# searc|h: bnds |
|000033c0| 3d 20 73 65 61 72 63 68 | 20 2d 66 6f 72 77 61 72 |= search| -forwar|
|000033d0| 64 20 2d 72 65 67 45 78 | 70 72 20 2d 69 67 6e 6f |d -regEx|pr -igno|
|000033e0| 72 65 43 61 73 65 20 2d | 6d 61 74 63 68 57 6f 72 |reCase -|matchWor|
|000033f0| 64 73 20 2d 6e 6f 61 62 | 6f 72 74 20 0d 23 09 09 |ds -noab|ort .#..|
|00003400| 2d 6c 20 6c 69 6d 69 74 | 20 70 61 74 20 70 6f 73 |-l limit| pat pos|
|00003410| 0d 23 20 0d 70 72 6f 63 | 20 72 65 67 73 75 62 49 |.# .proc| regsubI|
|00003420| 6e 52 65 67 69 6f 6e 20 | 7b 66 72 6f 6d 20 74 6f |nRegion |{from to|
|00003430| 20 73 72 63 68 20 72 65 | 70 6c 7d 20 7b 0d 09 69 | srch re|pl} {..i|
|00003440| 66 20 7b 21 5b 73 74 72 | 69 6e 67 20 6c 65 6e 67 |f {![str|ing leng|
|00003450| 74 68 20 24 73 72 63 68 | 5d 7d 20 72 65 74 75 72 |th $srch|]} retur|
|00003460| 6e 0d 09 69 66 20 7b 24 | 66 72 6f 6d 20 3e 3d 20 |n..if {$|from >= |
|00003470| 24 74 6f 7d 20 72 65 74 | 75 72 6e 0d 09 73 65 74 |$to} ret|urn..set|
|00003480| 20 74 65 78 74 20 5b 67 | 65 74 54 65 78 74 20 24 | text [g|etText $|
|00003490| 66 72 6f 6d 20 24 74 6f | 5d 0d 09 72 65 67 73 75 |from $to|]..regsu|
|000034a0| 62 20 2d 61 6c 6c 20 22 | 24 73 72 63 68 22 20 24 |b -all "|$srch" $|
|000034b0| 74 65 78 74 20 22 24 72 | 65 70 6c 22 20 74 65 78 |text "$r|epl" tex|
|000034c0| 74 0d 09 72 65 70 6c 61 | 63 65 54 65 78 74 20 24 |t..repla|ceText $|
|000034d0| 66 72 6f 6d 20 24 74 6f | 20 24 74 65 78 74 0d 7d |from $to| $text.}|
|000034e0| 0d 23 09 77 68 69 6c 65 | 20 7b 28 24 70 6f 73 20 |.#.while| {($pos |
|000034f0| 3c 20 24 74 6f 29 20 26 | 26 0d 23 09 09 20 20 21 |< $to) &|&.#..  !|
|00003500| 5b 63 61 74 63 68 20 7b | 73 65 61 72 63 68 20 2d |[catch {|search -|
|00003510| 66 20 31 20 2d 72 20 31 | 20 2d 69 20 31 20 2d 6d |f 1 -r 1| -i 1 -m|
|00003520| 20 30 20 22 24 73 72 63 | 68 22 20 24 70 6f 73 7d | 0 "$src|h" $pos}|
|00003530| 20 6d 74 63 68 5d 7d 20 | 7b 0d 23 09 09 73 65 74 | mtch]} |{.#..set|
|00003540| 20 6d 62 65 67 20 5b 6c | 69 6e 64 65 78 20 24 6d | mbeg [l|index $m|
|00003550| 74 63 68 20 30 5d 0d 23 | 09 09 73 65 74 20 70 6f |tch 0].#|..set po|
|00003560| 73 20 5b 6c 69 6e 64 65 | 78 20 24 6d 74 63 68 20 |s [linde|x $mtch |
|00003570| 31 5d 0d 23 09 09 72 65 | 70 6c 61 63 65 54 65 78 |1].#..re|placeTex|
|00003580| 74 20 24 6d 62 65 67 20 | 24 70 6f 73 20 24 72 65 |t $mbeg |$pos $re|
|00003590| 70 6c 20 7d 0d 0d 70 72 | 6f 63 20 62 61 63 6b 53 |pl }..pr|oc backS|
|000035a0| 6c 61 73 68 53 75 62 20 | 7b 61 72 67 7d 20 7b 20 |lashSub |{arg} { |
|000035b0| 65 76 61 6c 20 5b 63 6f | 6e 63 61 74 20 72 65 74 |eval [co|ncat ret|
|000035c0| 75 72 6e 20 22 5c 22 24 | 61 72 67 5c 22 22 5d 20 |urn "\"$|arg\""] |
|000035d0| 7d 0d 0d 70 72 6f 63 20 | 72 65 70 6c 61 63 65 49 |}..proc |replaceI|
|000035e0| 6e 52 65 67 69 6f 6e 20 | 7b 7d 20 7b 0d 09 69 66 |nRegion |{} {..if|
|000035f0| 20 5b 63 61 74 63 68 20 | 7b 70 72 6f 6d 70 74 20 | [catch |{prompt |
|00003600| 22 53 65 61 72 63 68 20 | 52 65 67 45 78 70 72 3a |"Search |RegExpr:|
|00003610| 22 20 22 22 7d 20 73 72 | 63 68 5d 20 72 65 74 75 |" ""} sr|ch] retu|
|00003620| 72 6e 0d 09 69 66 20 5b | 63 61 74 63 68 20 7b 70 |rn..if [|catch {p|
|00003630| 72 6f 6d 70 74 20 22 52 | 65 70 6c 61 63 65 20 53 |rompt "R|eplace S|
|00003640| 74 72 69 6e 67 3a 22 20 | 22 22 7d 20 72 65 70 6c |tring:" |""} repl|
|00003650| 5d 20 72 65 74 75 72 6e | 0d 09 69 66 20 7b 21 5b |] return|..if {![|
|00003660| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 24 73 |string l|ength $s|
|00003670| 72 63 68 5d 7d 20 72 65 | 74 75 72 6e 0d 09 72 65 |rch]} re|turn..re|
|00003680| 67 73 75 62 49 6e 52 65 | 67 69 6f 6e 20 5b 67 65 |gsubInRe|gion [ge|
|00003690| 74 50 6f 73 5d 20 5b 73 | 65 6c 45 6e 64 5d 20 5c |tPos] [s|elEnd] \|
|000036a0| 0d 09 09 5b 62 61 63 6b | 53 6c 61 73 68 53 75 62 |...[back|SlashSub|
|000036b0| 20 22 24 73 72 63 68 22 | 5d 20 5b 62 61 63 6b 53 | "$srch"|] [backS|
|000036c0| 6c 61 73 68 53 75 62 20 | 22 24 72 65 70 6c 22 5d |lashSub |"$repl"]|
|000036d0| 0d 7d 0d 0d 23 0d 23 20 | 41 70 70 6c 79 20 63 6f |.}..#.# |Apply co|
|000036e0| 6d 6d 61 6e 64 20 74 6f | 20 65 61 63 68 20 6c 69 |mmand to| each li|
|000036f0| 6e 65 20 28 6f 72 20 70 | 61 72 61 67 72 61 70 68 |ne (or p|aragraph|
|00003700| 29 20 69 6e 20 73 65 6c | 65 63 74 69 6f 6e 20 3b |) in sel|ection ;|
|00003710| 0d 23 09 69 66 20 6e 6f | 20 63 6d 64 20 61 72 67 |.#.if no| cmd arg|
|00003720| 20 74 68 65 6e 20 70 72 | 6f 6d 70 74 73 20 66 6f | then pr|ompts fo|
|00003730| 72 20 69 74 0d 23 0d 70 | 72 6f 63 20 66 69 6c 74 |r it.#.p|roc filt|
|00003740| 65 72 4c 69 6e 65 73 20 | 7b 7b 63 6d 64 20 30 7d |erLines |{{cmd 0}|
|00003750| 20 7b 70 61 72 75 6e 69 | 74 20 30 7d 7d 20 7b 0d | {paruni|t 0}} {.|
|00003760| 09 69 66 20 7b 24 63 6d | 64 20 3d 3d 20 30 7d 20 |.if {$cm|d == 0} |
|00003770| 7b 0d 09 20 20 69 66 20 | 7b 5b 63 61 74 63 68 20 |{..  if |{[catch |
|00003780| 7b 20 70 72 6f 6d 70 74 | 20 22 4c 69 6e 65 2d 66 |{ prompt| "Line-f|
|00003790| 69 6c 74 65 72 20 63 6f | 6d 6d 61 6e 64 3a 20 22 |ilter co|mmand: "|
|000037a0| 20 22 22 20 7d 20 63 6d | 64 5d 7d 20 7b 20 72 65 | "" } cm|d]} { re|
|000037b0| 74 75 72 6e 20 7d 20 7d | 0d 09 69 66 20 7b 21 5b |turn } }|..if {![|
|000037c0| 73 74 72 69 6e 67 20 6c | 65 6e 67 74 68 20 24 63 |string l|ength $c|
|000037d0| 6d 64 5d 7d 20 72 65 74 | 75 72 6e 0d 09 73 65 74 |md]} ret|urn..set|
|000037e0| 20 75 6e 69 74 53 74 61 | 72 74 20 6c 69 6e 65 53 | unitSta|rt lineS|
|000037f0| 74 61 72 74 0d 09 73 65 | 74 20 75 6e 69 74 45 6e |tart..se|t unitEn|
|00003800| 64 20 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 0d |d nextLi|neStart.|
|00003810| 09 69 66 20 7b 24 70 61 | 72 75 6e 69 74 7d 20 7b |.if {$pa|runit} {|
|00003820| 0d 09 09 73 65 74 20 75 | 6e 69 74 53 74 61 72 74 |...set u|nitStart|
|00003830| 20 70 61 72 61 53 74 61 | 72 74 0d 09 09 73 65 74 | paraSta|rt...set|
|00003840| 20 75 6e 69 74 45 6e 64 | 20 70 61 72 61 46 69 6e | unitEnd| paraFin|
|00003850| 69 73 68 20 7d 0d 09 73 | 65 74 20 70 6f 73 20 5b |ish }..s|et pos [|
|00003860| 24 75 6e 69 74 53 74 61 | 72 74 20 5b 67 65 74 50 |$unitSta|rt [getP|
|00003870| 6f 73 5d 5d 0d 09 73 65 | 74 20 66 69 6e 69 73 68 |os]]..se|t finish|
|00003880| 20 5b 73 65 6c 45 6e 64 | 5d 0d 09 69 66 20 7b 24 | [selEnd|]..if {$|
|00003890| 70 6f 73 20 3e 3d 20 24 | 66 69 6e 69 73 68 7d 20 |pos >= $|finish} |
|000038a0| 72 65 74 75 72 6e 0d 09 | 67 6f 74 6f 20 24 70 6f |return..|goto $po|
|000038b0| 73 0d 09 63 72 65 61 74 | 65 54 4d 61 72 6b 20 22 |s..creat|eTMark "|
|000038c0| 66 69 6c 74 65 72 4c 65 | 6e 64 22 20 24 66 69 6e |filterLe|nd" $fin|
|000038d0| 69 73 68 0d 09 73 65 74 | 20 6e 65 78 74 20 5b 24 |ish..set| next [$|
|000038e0| 75 6e 69 74 45 6e 64 20 | 24 70 6f 73 5d 0d 09 77 |unitEnd |$pos]..w|
|000038f0| 68 69 6c 65 20 7b 28 28 | 24 6e 65 78 74 20 3e 20 |hile {((|$next > |
|00003900| 24 70 6f 73 29 20 26 26 | 20 28 24 70 6f 73 20 3c |$pos) &&| ($pos <|
|00003910| 20 24 66 69 6e 69 73 68 | 29 29 7d 20 7b 0d 09 09 | $finish|))} {...|
|00003920| 67 6f 74 6f 20 24 6e 65 | 78 74 0d 09 09 63 72 65 |goto $ne|xt...cre|
|00003930| 61 74 65 54 4d 61 72 6b | 20 22 66 69 6c 74 65 72 |ateTMark| "filter|
|00003940| 4c 6e 65 78 74 22 20 24 | 6e 65 78 74 0d 09 09 73 |Lnext" $|next...s|
|00003950| 65 74 4d 61 72 6b 0d 09 | 09 67 6f 74 6f 20 24 70 |etMark..|.goto $p|
|00003960| 6f 73 0d 09 69 66 20 7b | 5b 63 61 74 63 68 20 5b |os..if {|[catch [|
|00003970| 6c 69 73 74 20 75 70 6c | 65 76 65 6c 20 23 30 20 |list upl|evel #0 |
|00003980| 22 24 63 6d 64 22 5d 20 | 72 65 74 76 61 6c 5d 7d |"$cmd"] |retval]}|
|00003990| 20 7b 20 61 6c 74 65 72 | 74 6e 6f 74 65 20 24 72 | { alter|tnote $r|
|000039a0| 65 74 76 61 6c 20 7d 0d | 09 09 73 65 74 20 66 69 |etval }.|..set fi|
|000039b0| 6e 69 73 68 20 5b 67 65 | 74 54 4d 61 72 6b 20 22 |nish [ge|tTMark "|
|000039c0| 66 69 6c 74 65 72 4c 65 | 6e 64 22 5d 0d 09 09 67 |filterLe|nd"]...g|
|000039d0| 6f 74 6f 54 4d 61 72 6b | 20 22 66 69 6c 74 65 72 |otoTMark| "filter|
|000039e0| 4c 6e 65 78 74 22 0d 09 | 09 73 65 74 20 70 6f 73 |Lnext"..|.set pos|
|000039f0| 20 5b 24 75 6e 69 74 53 | 74 61 72 74 20 5b 67 65 | [$unitS|tart [ge|
|00003a00| 74 50 6f 73 5d 5d 0d 09 | 09 73 65 74 20 6e 65 78 |tPos]]..|.set nex|
|00003a10| 74 20 5b 24 75 6e 69 74 | 45 6e 64 20 24 70 6f 73 |t [$unit|End $pos|
|00003a20| 5d 5d 0d 09 7d 0d 09 72 | 65 6d 6f 76 65 54 4d 61 |]]..}..r|emoveTMa|
|00003a30| 72 6b 20 22 66 69 6c 74 | 65 72 4c 65 6e 64 22 0d |rk "filt|erLend".|
|00003a40| 09 72 65 6d 6f 76 65 54 | 4d 61 72 6b 20 22 66 69 |.removeT|Mark "fi|
|00003a50| 6c 74 65 72 4c 6e 65 78 | 74 22 0d 7d 0d 0d 70 72 |lterLnex|t".}..pr|
|00003a60| 6f 63 20 66 69 6c 74 65 | 72 50 61 72 61 67 72 61 |oc filte|rParagra|
|00003a70| 70 68 73 20 7b 7b 63 6d | 64 20 30 7d 7d 20 7b 20 |phs {{cm|d 0}} { |
|00003a80| 66 69 6c 74 65 72 4c 69 | 6e 65 73 20 24 63 6d 64 |filterLi|nes $cmd|
|00003a90| 20 31 20 7d 0d 0d 23 20 | 57 41 52 4e 49 4e 47 3a | 1 }..# |WARNING:|
|00003aa0| 20 64 65 73 65 6c 65 63 | 74 69 6e 67 20 73 65 74 | deselec|ting set|
|00003ab0| 73 20 74 68 65 20 6d 61 | 72 6b 20 74 6f 20 73 65 |s the ma|rk to se|
|00003ac0| 6c 45 6e 64 0d 70 72 6f | 63 20 73 6f 72 74 50 61 |lEnd.pro|c sortPa|
|00003ad0| 72 61 67 72 61 70 68 73 | 20 7b 7b 66 72 6f 6d 20 |ragraphs| {{from |
|00003ae0| 2d 31 7d 20 7b 74 6f 20 | 2d 31 7d 7d 20 7b 0d 09 |-1} {to |-1}} {..|
|00003af0| 69 66 20 7b 28 24 66 72 | 6f 6d 20 3c 20 30 29 20 |if {($fr|om < 0) |
|00003b00| 7c 7c 20 28 24 74 6f 20 | 3c 20 30 29 7d 20 7b 09 ||| ($to |< 0)} {.|
|00003b10| 73 65 74 20 66 72 6f 6d | 20 5b 67 65 74 50 6f 73 |set from| [getPos|
|00003b20| 5d 20 3b 20 73 65 74 20 | 74 6f 20 5b 73 65 6c 45 |] ; set |to [selE|
|00003b30| 6e 64 5d 20 7d 0d 09 69 | 66 20 7b 24 66 72 6f 6d |nd] }..i|f {$from|
|00003b40| 20 3e 3d 20 24 74 6f 7d | 20 72 65 74 75 72 6e 0d | >= $to}| return.|
|00003b50| 09 6a 6f 69 6e 52 65 67 | 69 6f 6e 20 7b 24 66 72 |.joinReg|ion {$fr|
|00003b60| 6f 6d 20 24 74 6f 7d 0d | 09 73 65 6c 65 63 74 20 |om $to}.|.select |
|00003b70| 5b 67 65 74 50 6f 73 5d | 20 5b 6e 65 78 74 4c 69 |[getPos]| [nextLi|
|00003b80| 6e 65 53 74 61 72 74 20 | 5b 67 65 74 4d 61 72 6b |neStart |[getMark|
|00003b90| 5d 5d 0d 09 73 6f 72 74 | 4c 69 6e 65 73 0d 09 73 |]]..sort|Lines..s|
|00003ba0| 65 6c 65 63 74 20 5b 67 | 65 74 50 6f 73 5d 20 5b |elect [g|etPos] [|
|00003bb0| 67 65 74 50 6f 73 5d 0d | 09 72 65 67 73 75 62 49 |getPos].|.regsubI|
|00003bc0| 6e 52 65 67 69 6f 6e 20 | 5b 67 65 74 50 6f 73 5d |nRegion |[getPos]|
|00003bd0| 20 5b 67 65 74 4d 61 72 | 6b 5d 20 22 5c 72 22 20 | [getMar|k] "\r" |
|00003be0| 22 5c 72 5c 72 22 20 0d | 09 77 72 61 70 52 65 67 |"\r\r" .|.wrapReg|
|00003bf0| 69 6f 6e 0d 7d 0d 0d 23 | 0d 23 20 53 61 6d 70 6c |ion.}..#|.# Sampl|
|00003c00| 65 0d 23 0d 70 72 6f 63 | 20 66 69 6c 74 65 72 52 |e.#.proc| filterR|
|00003c10| 65 67 69 6f 6e 20 7b 7b | 66 72 6f 6d 20 2d 31 7d |egion {{|from -1}|
|00003c20| 20 7b 74 6f 20 2d 31 7d | 20 7b 63 6d 64 20 30 7d | {to -1}| {cmd 0}|
|00003c30| 20 7b 6e 65 77 77 69 6e | 20 30 7d 7d 20 7b 0d 09 | {newwin| 0}} {..|
|00003c40| 69 66 20 7b 24 63 6d 64 | 20 3d 3d 20 30 7d 20 7b |if {$cmd| == 0} {|
|00003c50| 0d 09 20 20 69 66 20 7b | 5b 63 61 74 63 68 20 7b |..  if {|[catch {|
|00003c60| 20 70 72 6f 6d 70 74 20 | 22 45 76 61 6c 20 63 6f | prompt |"Eval co|
|00003c70| 6d 6d 61 6e 64 3a 20 22 | 20 22 22 20 7d 20 63 6d |mmand: "| "" } cm|
|00003c80| 64 5d 7d 20 7b 20 72 65 | 74 75 72 6e 20 7d 0d 09 |d]} { re|turn }..|
|00003c90| 7d 0d 09 69 66 20 7b 21 | 5b 73 74 72 69 6e 67 20 |}..if {!|[string |
|00003ca0| 6c 65 6e 67 74 68 20 24 | 63 6d 64 5d 7d 20 72 65 |length $|cmd]} re|
|00003cb0| 74 75 72 6e 0d 09 69 66 | 20 7b 28 24 66 72 6f 6d |turn..if| {($from|
|00003cc0| 20 3c 20 30 29 20 7c 7c | 20 28 24 74 6f 20 3c 20 | < 0) ||| ($to < |
|00003cd0| 30 29 7d 20 7b 09 73 65 | 74 20 66 72 6f 6d 20 5b |0)} {.se|t from [|
|00003ce0| 67 65 74 50 6f 73 5d 20 | 3b 20 73 65 74 20 74 6f |getPos] |; set to|
|00003cf0| 20 5b 73 65 6c 45 6e 64 | 5d 20 7d 0d 09 69 66 20 | [selEnd|] }..if |
|00003d00| 7b 24 66 72 6f 6d 20 3e | 3d 20 24 74 6f 7d 20 72 |{$from >|= $to} r|
|00003d10| 65 74 75 72 6e 0d 09 73 | 65 74 20 70 6f 73 20 5b |eturn..s|et pos [|
|00003d20| 67 65 74 50 6f 73 5d 0d | 09 73 65 74 20 74 65 78 |getPos].|.set tex|
|00003d30| 74 20 5b 67 65 74 54 65 | 78 74 20 24 66 72 6f 6d |t [getTe|xt $from|
|00003d40| 20 24 74 6f 5d 0d 09 73 | 65 74 20 74 65 78 74 20 | $to]..s|et text |
|00003d50| 5b 24 63 6d 64 20 24 74 | 65 78 74 5d 0d 09 72 65 |[$cmd $t|ext]..re|
|00003d60| 70 6c 61 63 65 54 65 78 | 74 20 24 66 72 6f 6d 20 |placeTex|t $from |
|00003d70| 24 74 6f 20 24 74 65 78 | 74 20 22 5c 72 22 0d 09 |$to $tex|t "\r"..|
|00003d80| 67 6f 74 6f 20 24 70 6f | 73 0d 7d 0d 0d 23 3d 3d |goto $po|s.}..#==|
|00003d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 0d 23 20 3d 3d 3d 3d |========|=.# ====|
|00003db0| 20 46 55 4e 43 54 49 4f | 4e 53 20 28 43 4f 4d 4d | FUNCTIO|NS (COMM|
|00003dc0| 41 4e 44 53 29 0d 23 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ANDS).#=|========|
|00003dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003de0| 3d 3d 0d 23 20 3d 3d 3d | 3d 20 52 65 64 6f 20 48 |==.# ===|= Redo H|
|00003df0| 69 73 74 6f 72 79 20 3d | 3d 3d 3d 0d 73 65 74 20 |istory =|===.set |
|00003e00| 65 76 61 6c 4c 61 73 74 | 43 6d 64 20 22 22 0d 0d |evalLast|Cmd ""..|
|00003e10| 23 20 45 76 61 6c 20 6f | 6e 65 20 63 6f 6d 6d 61 |# Eval o|ne comma|
|00003e20| 6e 64 20 2d 2d 2d 20 22 | 65 76 61 6c 22 20 76 73 |nd --- "|eval" vs|
|00003e30| 2e 20 22 63 61 74 63 68 | 22 0d 23 09 23 20 63 61 |. "catch|".#.# ca|
|00003e40| 74 63 68 3a 20 20 30 5f | 4f 4b 20 3d 3d 20 63 61 |tch:  0_|OK == ca|
|00003e50| 74 63 68 20 63 6d 64 20 | 72 65 74 76 61 6c 0d 23 |tch cmd |retval.#|
|00003e60| 09 23 20 73 65 74 20 72 | 65 74 76 61 6c 20 5b 65 |.# set r|etval [e|
|00003e70| 76 61 6c 20 5b 6c 69 73 | 74 20 75 70 6c 65 76 65 |val [lis|t upleve|
|00003e80| 6c 20 23 30 20 22 24 63 | 6d 64 22 5d 5d 0d 23 09 |l #0 "$c|md"]].#.|
|00003e90| 23 20 63 61 74 63 68 20 | 5b 6c 69 73 74 20 75 70 |# catch |[list up|
|00003ea0| 6c 65 76 65 6c 20 23 30 | 20 22 24 63 6d 64 22 5d |level #0| "$cmd"]|
|00003eb0| 20 72 65 74 76 61 6c 0d | 23 0d 70 72 6f 63 20 65 | retval.|#.proc e|
|00003ec0| 76 61 6c 43 6f 6d 6d 61 | 6e 64 20 7b 7d 20 7b 0d |valComma|nd {} {.|
|00003ed0| 09 67 6c 6f 62 61 6c 20 | 65 76 61 6c 4c 61 73 74 |.global |evalLast|
|00003ee0| 43 6d 64 0d 09 69 66 20 | 7b 21 5b 63 61 74 63 68 |Cmd..if |{![catch|
|00003ef0| 20 7b 20 70 72 6f 6d 70 | 74 20 22 45 76 61 6c 20 | { promp|t "Eval |
|00003f00| 63 6f 6d 6d 61 6e 64 3a | 20 22 20 22 22 20 7d 20 |command:| " "" } |
|00003f10| 63 6d 64 5d 7d 20 7b 0d | 09 09 73 65 74 20 65 76 |cmd]} {.|..set ev|
|00003f20| 61 6c 4c 61 73 74 43 6d | 64 20 24 63 6d 64 0d 09 |alLastCm|d $cmd..|
|00003f30| 09 73 65 74 20 72 65 74 | 76 61 6c 20 5b 65 76 61 |.set ret|val [eva|
|00003f40| 6c 20 5b 6c 69 73 74 20 | 75 70 6c 65 76 65 6c 20 |l [list |uplevel |
|00003f50| 23 30 20 22 24 63 6d 64 | 22 5d 5d 0d 09 09 6d 65 |#0 "$cmd|"]]...me|
|00003f60| 73 73 61 67 65 20 24 72 | 65 74 76 61 6c 20 7d 0d |ssage $r|etval }.|
|00003f70| 7d 0d 0d 70 72 6f 63 20 | 65 76 61 6c 54 6f 54 65 |}..proc |evalToTe|
|00003f80| 78 74 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |xt {} {.|.global |
|00003f90| 65 76 61 6c 4c 61 73 74 | 43 6d 64 0d 09 69 66 20 |evalLast|Cmd..if |
|00003fa0| 7b 21 5b 63 61 74 63 68 | 20 7b 20 70 72 6f 6d 70 |{![catch| { promp|
|00003fb0| 74 20 22 45 76 61 6c 20 | 63 6f 6d 6d 61 6e 64 3a |t "Eval |command:|
|00003fc0| 20 22 20 22 22 20 7d 20 | 63 6d 64 5d 7d 20 7b 0d | " "" } |cmd]} {.|
|00003fd0| 09 09 73 65 74 20 65 76 | 61 6c 4c 61 73 74 43 6d |..set ev|alLastCm|
|00003fe0| 64 20 24 63 6d 64 0d 09 | 09 63 61 74 63 68 20 5b |d $cmd..|.catch [|
|00003ff0| 6c 69 73 74 20 75 70 6c | 65 76 65 6c 20 23 30 20 |list upl|evel #0 |
|00004000| 22 24 63 6d 64 22 5d 20 | 72 65 74 76 61 6c 0d 09 |"$cmd"] |retval..|
|00004010| 09 67 65 74 6c 69 6e 65 | 20 22 52 65 73 75 6c 74 |.getline| "Result|
|00004020| 3a 22 20 22 24 72 65 74 | 76 61 6c 22 20 7d 0d 7d |:" "$ret|val" }.}|
|00004030| 0d 0d 23 20 72 65 70 65 | 61 74 20 63 6f 6d 70 6c |..# repe|at compl|
|00004040| 65 78 20 63 6f 6d 6d 61 | 6e 64 0d 70 72 6f 63 20 |ex comma|nd.proc |
|00004050| 72 65 70 65 61 74 45 76 | 61 6c 20 7b 7d 20 7b 0d |repeatEv|al {} {.|
|00004060| 09 67 6c 6f 62 61 6c 20 | 65 76 61 6c 4c 61 73 74 |.global |evalLast|
|00004070| 43 6d 64 0d 09 73 65 74 | 20 63 6d 64 20 24 65 76 |Cmd..set| cmd $ev|
|00004080| 61 6c 4c 61 73 74 43 6d | 64 0d 09 69 66 20 7b 24 |alLastCm|d..if {$|
|00004090| 63 6d 64 20 3d 3d 20 22 | 22 7d 20 7b 20 61 62 6f |cmd == "|"} { abo|
|000040a0| 72 74 45 6d 20 3b 20 72 | 65 74 75 72 6e 20 7d 0d |rtEm ; r|eturn }.|
|000040b0| 09 73 65 74 20 72 65 74 | 76 61 6c 20 5b 65 76 61 |.set ret|val [eva|
|000040c0| 6c 20 5b 6c 69 73 74 20 | 75 70 6c 65 76 65 6c 20 |l [list |uplevel |
|000040d0| 23 30 20 22 24 63 6d 64 | 22 5d 5d 0d 09 6d 65 73 |#0 "$cmd|"]]..mes|
|000040e0| 73 61 67 65 20 24 72 65 | 74 76 61 6c 0d 7d 0d 0d |sage $re|tval.}..|
|000040f0| 23 09 45 73 63 61 70 65 | 20 63 75 72 72 65 6e 74 |#.Escape| current|
|00004100| 20 6d 6f 64 65 20 66 6f | 72 20 6f 6e 65 20 63 6f | mode fo|r one co|
|00004110| 6d 6d 61 6e 64 0d 70 72 | 6f 63 20 65 78 65 63 43 |mmand.pr|oc execC|
|00004120| 6f 6d 6d 61 6e 64 20 7b | 7d 20 7b 0d 09 67 6c 6f |ommand {|} {..glo|
|00004130| 62 61 6c 20 6d 6f 64 65 | 0d 09 73 65 74 20 73 61 |bal mode|..set sa|
|00004140| 76 65 4d 6f 64 65 20 24 | 6d 6f 64 65 0d 09 63 68 |veMode $|mode..ch|
|00004150| 61 6e 67 65 4d 6f 64 65 | 20 22 54 65 78 74 22 0d |angeMode| "Text".|
|00004160| 09 65 78 65 63 75 74 65 | 0d 09 63 68 61 6e 67 65 |.execute|..change|
|00004170| 4d 6f 64 65 20 24 73 61 | 76 65 4d 6f 64 65 0d 7d |Mode $sa|veMode.}|
|00004180| 0d 0d 23 20 46 69 72 73 | 74 2c 20 64 65 66 69 6e |..# Firs|t, defin|
|00004190| 65 20 6d 61 63 72 6f 73 | 20 74 6f 20 62 79 70 61 |e macros| to bypa|
|000041a0| 73 73 20 74 68 65 20 65 | 6c 65 63 74 72 69 63 20 |ss the e|lectric |
|000041b0| 62 72 61 63 65 73 2e 0d | 70 72 6f 63 20 6f 72 64 |braces..|proc ord|
|000041c0| 4c 65 66 74 42 72 61 63 | 65 20 7b 7d 20 7b 0d 09 |LeftBrac|e {} {..|
|000041d0| 69 6e 73 65 72 74 54 65 | 78 74 20 22 09 09 5c 7b |insertTe|xt "..\{|
|000041e0| 22 0d 7d 0d 62 69 6e 64 | 20 7b 27 5b 27 7d 20 3c |".}.bind| {'['} <|
|000041f0| 63 73 3e 20 6f 72 64 4c | 65 66 74 42 72 61 63 65 |cs> ordL|eftBrace|
|00004200| 0d 0d 70 72 6f 63 20 6f | 72 64 52 69 67 68 74 42 |..proc o|rdRightB|
|00004210| 72 61 63 65 20 7b 7d 20 | 7b 0d 09 69 6e 73 65 72 |race {} |{..inser|
|00004220| 74 54 65 78 74 20 22 5c | 7d 22 0d 09 62 6c 69 6e |tText "\|}"..blin|
|00004230| 6b 20 5b 6d 61 74 63 68 | 49 74 20 22 5c 7d 22 20 |k [match|It "\}" |
|00004240| 5b 65 78 70 72 20 5b 67 | 65 74 50 6f 73 5d 2d 31 |[expr [g|etPos]-1|
|00004250| 5d 5d 0d 7d 0d 62 69 6e | 64 20 7b 27 5d 27 7d 20 |]].}.bin|d {']'} |
|00004260| 3c 63 73 3e 20 6f 72 64 | 52 69 67 68 74 42 72 61 |<cs> ord|RightBra|
|00004270| 63 65 0d 09 0d 70 72 6f | 63 20 71 75 6f 74 65 57 |ce...pro|c quoteW|
|00004280| 6f 72 64 20 7b 7d 20 7b | 0d 09 62 61 63 6b 77 61 |ord {} {|..backwa|
|00004290| 72 64 57 6f 72 64 0d 09 | 69 6e 73 65 72 74 54 65 |rdWord..|insertTe|
|000042a0| 78 74 20 22 27 22 0d 09 | 66 6f 72 77 61 72 64 57 |xt "'"..|forwardW|
|000042b0| 6f 72 64 0d 09 69 6e 73 | 65 72 74 54 65 78 74 20 |ord..ins|ertText |
|000042c0| 22 27 22 0d 7d 0d 62 69 | 6e 64 20 27 27 27 20 3c |"'".}.bi|nd ''' <|
|000042d0| 7a 3e 20 71 75 6f 74 65 | 57 6f 72 64 0d 00 00 00 |z> quote|Word....|
|000042e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000042f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004300| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00004310| 01 35 02 00 00 00 00 00 | 86 01 09 00 96 01 2c 10 |.5......|......,.|
|00004320| 02 33 30 00 00 00 00 00 | 9e 01 09 00 ae 01 2c 10 |.30.....|......,.|
|00004330| 0a 70 72 6f 63 73 2e 74 | 63 6c 7e 00 02 00 00 00 |.procs.t|cl~.....|
|00004340| 54 45 58 54 41 4c 46 41 | 00 00 00 00 00 00 00 00 |TEXTALFA|........|
|00004350| 00 00 54 45 58 54 41 4c | 46 41 00 00 00 00 00 00 |..TEXTAL|FA......|
|00004360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00004370| 00 00 a9 a2 5c 5a 00 00 | 42 5d 00 00 01 7e 4e 6f |....\Z..|B]...~No|
|00004380| 77 20 53 6f 66 74 77 61 | 72 65 2c 20 49 6e 63 2e |w Softwa|re, Inc.|
|00004390| 00 00 00 2d 04 01 80 01 | 00 00 05 34 2e 30 2e 31 |...-....|...4.0.1|
|000043a0| 20 41 20 63 6f 6d 70 6f | 6e 65 6e 74 20 6f 66 20 | A compo|nent of |
|000043b0| 4e 6f 77 20 55 74 69 6c | 69 74 69 65 73 20 34 2e |Now Util|ities 4.|
|000043c0| 30 00 00 00 45 04 01 80 | 01 00 00 05 34 2e 30 2e |0...E...|....4.0.|
|000043d0| 31 38 34 2e 30 2e 31 20 | 62 79 20 48 2e 59 61 6d |184.0.1 |by H.Yam|
|000043e0| 61 6d 6f 74 6f 20 20 a9 | 39 30 2d 39 32 20 7a 65 |amoto  .|90-92 ze|
|000043f0| 74 61 20 73 6f 66 74 20 | 26 20 4e 6f 77 20 53 6f |ta soft |& Now So|
|00004400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 e2 00 6e |...H..Mo|naco...n|
|00004410| 37 f2 00 06 f9 28 00 6f | 4c 88 00 6e 34 32 40 8b |7....(.o|L..n42@.|
|00004420| 70 02 40 82 e5 06 00 04 | 00 04 00 2a 00 03 01 dd |p.@.....|...*....|
|00004430| 02 7d 00 2a 00 03 01 dd | 02 7d 00 0e 76 64 00 00 |.}.*....|.}..vd..|
|00004440| 09 04 00 00 09 04 00 00 | 08 47 01 00 00 00 01 00 |........|.G......|
|00004450| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 5f 47 c8 |...L...L|...2._G.|
|00004460| 0c 7e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.~.....2|..MPSR..|
|00004470| 00 0a 03 ed ff ff 00 00 | 00 00 00 66 97 7c 00 00 |........|...f.|..|
+--------+-------------------------+-------------------------+--------+--------+